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ATARI USERS 
TAKE NOTE... 


If youlike 32 BASIC Programs for the ATARI 
Computer, you will appreciate having the pro- 
grams on a disk or cassette which is ready to run 
on your ATARI 600XL, 800XL, 1200XL, 400 
or 800 computer. The software has a "forever 
guarantee" (any problems, simply return the disk 
or cassette with $5 and we will send you a new 
one). Not only will it save your typing time, the 
software will save you time fretting about errors 
that are so easy to make. 


Interested? 


[J You bet I’m interested! Please send me the 5!" disk for my 
ATARI 600XL, 800XL, 400, or 800. 


L] You bet I’m interested! Please send me the cassette for my ATARI 
600XLX, 800XL, 400, or 800. 


ГІ I’ve enclosed my check in the amount of $19.95. Please rush my 
ATARI software to the address below. 


ГІ Please charge my VISA —— M/C — and send to the address 
below. 


Acct # — . Ехр.Рае 
Signature 
Name 


Address 


City, State, Zip 


(To expedite your order, call 1-800-547-1842 and charge your VISA 
or M/C) 


L] Please send me your catalog entitled Brain Food". 
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AN IMPORTANT NOTE 


The publisher and authors have made every effort to assure that the 
computer programs and programming information in this publication 
are accurate and complete. However, this publication is prepared for 
general readership, and neither the publisher nor the authors have 
any knowledge about or ability to control any third party's use of the 
programs and programming information. There is no warranty or 
representation by either the publisher or the authors that the pro- 
grams or programming information in this book will enable the 
reader or user to achieve any particular result. 


Preface 


You have bought yourself an ATARI computer (or maybe you just 
have access to one at school or work). You will soon find that the most 
frequent question you are asked goes something like this: “Оһ, you 
got a computer, eh? Uh. . . what are you going to do with it?" 

Your answer, of course, depends on your own particular situation. 
Maybe you got it for mathematical work, or for your business, or for 
home usage, or to enable you to learn more about computers. Maybe 
you got it for a teaching/learning tool or for playing games. 

Even if you got the computer specifically for only one of these 
reasons, you should not neglect the others. The computer is such a 
powerful tool that it can be used in many different ways. If it is not 
being used for its “intended” function right now, why not make use of 
it in some other way? 

An ATARI computer is so small and portable that you can, say, 
take it home from work over the weekend and let the kids play 
educational games. They will have fun and learn a lot. After they go 
to bed, you can use it to help plan your personal finances. Or, you can 
let your guests at a party try to outsmart the ATARI (or each other) at 
some fascinating games. The possibilities go on and on. 

АП these things can be done with an ATARI computer, but it 
cannot do any of them without the key ingredient — a computer pro- 
gram. People with little or no exposure to computers may be in for a 
surprise when they learn this. A computer without a program is like a 
car without a driver. It just sits there. 
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So you ask, “Where can I get some programs to do the things I 
want my computer to do?" Glad you asked. There are several 
alternatives. 


1. Hire a computer programmer. If you have a big budget, this is 
the way to go. Good programmers are expensive and hard to 
find (and you will not know for sure if they're really good until 
after the job is finished). Writing a couple of programs that are 
moderately complex will probably cost you more than you paid 
for the ATARI itself. 

2. Learn to program yourself. This is a nice alternative, but it takes 
time. There are lots of programming books available — some are 
good, some not so good. You can take courses at local colleges. 
If you can afford the time and you have a fair amount of common 
sense and inner drive, this is a good solution. 

3. Buy the programs you want. This is cheaper than hiring your 
own programmer because all the buyers share the cost of writing 
the programs. You still will not find it very cheap, especially if 
you want to accumulate several dozen programs. Each program 
might cost anywhere from a few dollars to several hundred 
dollars. The main problem is that you cannot be sure how good 
the programs are, and, since they are generalized for all possi- 
ble buyers, you may not be able to easily modify them to do 
exactly what you want. Also, they have to be written in a 
computer language that your computer understands. Even if you 
find a program written in the BASIC language, you will soon 
learn that the ATARIS BASIC is not the same as other versions. 
Variations between versions of the same language typically re- 
sult in the program not working. 


This book gives you the chance to take the third alternative at the 
lowest possible cost. If you divide the cost of the book by the number 
of programs in it (use your computer if you like), you will find that 
the cost per program is amazingly low. Even if there are only a few 
programs in the book that will be useful to you, the cost is pretty hard 
to beat. 

Just as important is the fact that these programs are written specifi- 
cally for your ATARI. If you type them in exactly as shown, they will 
work! No changes are needed. In addition, we show you exactly what 
to change in order to make some simple modifications that may suit 
your taste or needs. Plus, if you have learned a little about BASIC, 
you can go even further and follow the suggestions about more 
extensive changes that can be made. This approach was used to try to 
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make every program useful to you, whether you are a total beginner 
or an old hand with computers. 

But enough of the sales pitch. Our main point is that we feel a 
computer is an incredibly flexible machine, and it is a shame to put it 
to only one or two limited uses and let it sit idle the rest of the time. 
We are giving you a pretty wide range of things to do with your 
ATARI, and we are really only scratching the surface. 

So open your eyes and your mind. Play a mental game against the 
computer (WARI, JOT). Evaluate your next financial decision 
(LOAN, DECIDE). Expand your vocabulary or improve your read- 
ing speed (VOCAB, TACHIST). Solve mathematical equations (DI- 
FFEQN, SIMEQN). 

But please, don't leave your ATARI asleep in the corner too much. 
Give it some exercise. 


How to Use This Book 


Each chapter of this book presents a computer program that runs 
on an ATARI 400, 800, 600XL, 800XL, or 1200XL computer with 
ATARI BASIC. See Appendix 1 for details of the amount of memory 
required. Each chapter is made up of eight sections that serve the 
following functions: 


1. Purpose: Explains what the program does and why you might 
want to use it. 

2. How To Use It: Gives the details of what happens when you run 
the program. Explains your options and the meanings of any 
responses you might give. Provides details of any limitations of 
the program or errors that might occur. 

3. Sample Run: Shows you what you will see on your screen when 
you run the program. 

4. Program Listing: Provides a "listing" (or “print-out”) of the 
BASIC program. These are the instructions to the computer that 
you must provide so it will know what to do. You must type them 
in extremely carefully for correct results. 

5. Easy Changes: Shows you some very simple changes you can 
make to the program to cause it to work differently, if you wish. 
You do not have to understand how to program to make these 
changes. 

6. Main Routines: Explains the general logic of the program, in 
case you want to figure out how it works. Gives the BASIC line 
numbers and a brief explanation of what each major portion of 
the program accomplishes. 

7. Main Variables: Explains what each of the key variables in the 
program is used for, in case you want to figure out how it works. 
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Suggested Projects: Provides a few ideas for major changes 
you might want to make to the program. To try any of these, you 
will need to understand BASIC and use the information pro- 
vided in the previous two sections (Main Routines and Main 
Variables). 


To use any of these programs on your ATARI computer, you need 


only 
you 


use the first four sections. The last four sections are there to give 
supplementary information if you want to tinker with the 


program. 


RECOMMENDED PROCEDURE 


Here 


is our recommendation of how to try any of the programs in this 


book: 


ке 


CA 


о 


. Read through the documentation that came with your ATARI 


computer to learn the fundamentals of communication with the 
computer. This will teach you how to turn the computer on, get 
into BASIC, enter a program, correct mistakes, run a pro- 
gram, etc. 


. Pick a chapter and read Section 1 ("Purpose") to see if the 


program sounds interesting or useful to you. If not, move on to 
the next chapter until you find one that is. If you are a beginner 
you might want to try one of the short "Miscellaneous Pro- 
grams" first. 


. Read Sections 2 and 3 of the chapter (“How To Use It" and 


"Sample Run") to learn the details of what the program does. 


. Enter the NEW command to eliminate any existing program 


that might already be in your ATARTS memory. Using Section 
4 of the chapter ("Program Listing"), carefully enter the pro- 
gram into the ATARI. Be particularly careful to get all the 
punctuation characters right (1.е., commas, semicolons, 
colons, quotation marks, etc.). Certain typing errors will give 
you an immediate ERROR response. When this happens, re- 
enter the line with corrections. 

. After the entire program is entered into the ATARIS memory, 
use the LIST command to display what you have entered so you 
can double check for typographical errors, omitted lines, etc. 
Don't mistake a semicolon for a colon, or an alphabetic I or O 
for a numeric 1 ог 0 (zero). Take a minute to note the dif- 
ferences in these characters before you begin. 

. Before trying to RUN the program, use the CSAVE or SAVE 
command to save the program temporarily on cassette or disk. 


How to Use This Book 


xiii 


10. 


This could prevent a lot of wasted effort in case something goes 
wrong (power failure, computer malfunction, severe typing 
errors, etc.). 


. Now RUN the program. Is the same thing happening that is 


shown in the Sample Run? If so, accept our congratulations 
and go on to step 9. If not, stay cool and go to step 8. 


. If you got an ERROR in a line, LIST that line and look at it 


closely. Something is not right. 

Referring to the error code in the error message, consult the 
ATARI documentation for an explanation. Keep in mind that 
the error might not be in the line that is pointed to by the error 
message. It is not unusual for the mistake to be in a line 
immediately preceding the error message line. Another pos- 
sibility is that one or more lines were omitted entirely. Usually 
the error will be in another line that deals with the same 
variable names that are used in the line with the error. In any 
event, fix the problem and go back to step 7. 

If there are no error messages, but the program is not doing 
the same thing as the Sample Run, there are two possibilities. 
First, maybe the program isn't supposed to do exactly the same 
thing. Some of the programs are designed to do unpredictable 
things to avoid repetition (primarily the game programs and 
graphic displays). They should be doing the same types of 
things as the Sample Run, however. 

The second possibility is that you made a typing error that 
did not cause an error message to be displayed, but simply 
changed the meaning of one or more lines in the program. 
These are a little tricky to find, but you can usually narrow it 
down to the general area of the problem by noting the point at 
which the error takes place. Is the first thing displayed correct? 
If so, the error is probably after the PRINT statement that 
caused the first thing to be displayed. Look for the same types 
of things mentioned before. Make the corrections and go back 
to step 7. 


. Continue running the program, trying to duplicate the Sample 


Run. If you find a variation that cannot be accounted for in the 
"How To Use It" section of the chapter, go to step 8. Otherwise, 
if it seems to be running properly, CSAVE or SAVE the pro- 
gram on cassette or disk. 

Read Section 5 of the chapter ("Easy Changes"). Try any of the 
changes that look interesting. If you think the changed version 
is better, CSAVE or SAVE it on cassette or disk, too. You will 
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probably want to give it a slightly different title in the first 
REM statement to avoid future confusion. 


A NOTE ON THE PROGRAM LISTINGS 


A line on the screen of an ATARI computer is 38 characters wide, 
unless reset by a program to 40. The printer that was used to create 
the Program Listing section of each chapter prints lines up to 80 
characters long. For best reproduction in this book, it was preferable 
that each published line be no longer than 48 characters. This com- 
bination of facts might cause you a little confusion when you are 
entering the programs into your ATARI. Here's the way it works. 

Wherever there is a line in a program that is longer than 48 charac- 
ters, it has been divided into two or more lines that are each no more 
than 48 characters. You can recognize this easily because the second 
part has no line number at the left-hand side. This division is only 
for the purpose of printing the book. You should think of a divided 
line like this as one long line and enter it into your ATARI as a 
single line. 

Don't be fooled by the fact that the cursor on your ATARI jumps 
down to the next line after you enter the 38th or 40th character — 
it's just one long line until you press RETURN. 


IMPORTANT NOTE 


You can avoid all the problems of entering and debugging the 
programs in this book. How? АП programs are available ready to run 
on both cassette and disk. You simply load the program and you're 
ready to go. The order card in the front of the book has complete 
information on how to order these timesaving pre-entered programs. 
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Section 1 


Applications Programs 


INTRODUCTION TO APPLICATIONS PROGRAMS 


Good practical applications are certainly a prime use of personal 
computers. There are a myriad of ways an ATARI computer can help 
us to do useful work. Here are six programs for use around the home 
or business. 

Financial considerations are always important. LOAN will calcu- 
late interest, payment schedules, etc. for mortgages, car loans, or 
any such business loan. Do you ever have trouble balancing your 
checkbook(s)? СНСКВООК will enable you to rectify your monthly 
statements and help you find the cause of any errors. 

Fuel usage is a constant concern for those of us who drive. 
MILEAGE will determine and keep track of a motor vehicle's general 
operating efficiency. 

The ATARI is not limited to numerical applications. STOP turns 
your computer into a sophisticated stopwatch with a variety of uses. 

Often we are faced with difficult decisions. DECIDE transforms 
the ATARI into a trusty advisor. Help will be at hand for any decision 
involving the selection of one alternative from several choices. 

Before anything else, you might want to consult BIORHYTH each 
day. Some major airlines, and other industries, are placing credence 
on biorhythm theory. If you agree, or "just in case," simply turn on 
your ATARI and run this program. 
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BIORHYTH 


PURPOSE 


Did you ever have one of those days when nothing seemed to go 
right? АП of us seem to have days when we are clumsy, feel de- 
pressed, or just cannot seem to force ourselves to concentrate as well 
as usual. Sometimes we know why this occurs. It may result from the 
onset of a cold or because of an argument with a relative. Sometimes, 
however, we find no such reason. Why can't we perform up to par on 
some of those days when nothing is known to be wrong? 

Biorhythm theory says that all of us have cycles, beginning with 
the moment of birth, that influence our physical, emotional, and 
intellectual states. We will not go into a lot of detail about how 
biorhythm theory was developed (your local library probably has 
some books about this if you want to find out more), but we will 
summarize how it supposedly affects you. 

The physical cycle is twenty-three days long. For the first 11% 
days, you are in the positive half of the cycle. This means you should 
have a feeling of physical well-being, strength, and endurance. Dur- 
ing the second 11% days, you are in the negative half of the cycle. 
This results in less endurance and a tendency toward a general feeling 
of fatigue. 

The emotional cycle lasts for twenty-eight days. During the 
positive half (the first fourteen days), you should feel more cheerful, 
optimistic, and cooperative. During the negative half, you will tend 
to be more moody, pessimistic, and irritable. 
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The third cycle is the intellectual cycle, which lasts for thirty-three 
days. The first half is a period in which you should have greater 
success in learning new material and pursuing creative, intellectual 
activities. During the second half, you are supposedly better off 
reviewing old material rather than attempting to learn difficult new 
concepts. 

The ups and downs of these cycles are relative to each individual. 
For example, if you are a very self-controlled, unemotional person to 
begin with, your emotional highs and lows may not be very notice- 
able. Similarly, your physical and intellectual fluctuations depend 
upon your physical condition and intellectual capacity. 

The day that any of these three cycles changes from the plus side to 
the minus side (or vice versa) is called a "critical day." Biorhythm 
theory says that you are more accident-prone on critical days in your 
physical or emotional cycles. Critical days in the intellectual cycle 
aren't considered as dangerous, but if they coincide with a critical 
day in one of the other cycles, the potential problem can increase. As 
you might expect, a triple critical day is one on which you are 
recommended to be especially careful. 

Please note that there is quite a bit of controversy about bio- 
rhythms. Most scientists feel that there is not nearly enough evidence 
to conclude that biorhythms can tell you anything meaningful. Others 
believe that biorhythm cycles exist, but that they are not as simple 
and inflexible as the 23, 28, and 33 day cycles mentioned here. 

Whether biorhythms are good, bad, true, false, or anything else is 
not our concern here. We are just presenting the idea to you as an 
interesting theory that you can investigate with the help of your 
ATARI computer. 


HOW TO USEIT 


The program first asks for the birth day of the person whose 
biorhythm cycles are to be charted. You provide the month and day as 
you might expect. For the year, you only need to enter the last two 
digits if it is between 1900 and 1999. Otherwise, enter all four digits. 

Next the program asks you for the start date for the biorhythm 
chart. Enter it in the same way. Of course, this date cannot be earlier 
than the birth date. 

After a delay of a few seconds, the program clears the screen and 
begins plotting the biorhythm chart, one day at a time. The left side 
of the screen displays the date, while the right side displays the chart. 
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The left half of the chart is the *down" (negative) side of each cycle. 
The right half is the “up” (positive) side. The center line shows the 
critical days when you are at a zero point (neither positive nor 
negative). 

Each of the three curves is plotted with an identifying letter — P for 
physical, E for emotional, and I for intellectual. When the curves 
cross, an asterisk is displayed instead of either of the two (or three) 
letters. 

Eighteen days of the chart are displayed on one screen, and then 
the program waits for you to press a key. If you press the E key, the 
program ends. If you press the SPACE key (or almost any other key 
except BREAK or SHIFT), the program clears the screen and dis- 
plays the next eighteen days of the chart. 

The program will allow you to enter dates from the year 100 A.D. 
and on. We make no guarantees about any extreme future dates, 
however, such as entering a year greater than 3000. 


SAMPLE RUN 


BIORHYTTHM 


EMTER BIRTHDATE 


"EAR 255 

1351 ASSUMED 
MÜMTH CL TO 12) 7 
сат CL TO 31) 


ENTER START DATE FOR CHART 


"EAR 234 
1334 A55UMED 


MOMTH (1 TO 12) 25 
сау (51 TO 34) 7218 


The operator enters his or her birth date and the date for the beginning of 
the chart. 
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4 
E! 
E! 
4 
4 
4 
4 
4 
4 
4 
4 


The program responds with the first 18 days of the operator’s biorhythm 
chart, then waits for a key to be pressed. 


PROGRAM LISTING 


10 REM BIORHYTH 

1% REM COPYRIGHT 1984 DILITHIUM PRESS 

20 POKE 82,0 

ЭО DIM ОФ (40), Х(12), СФ (40) ,L $640) ,R$(CAO) , A$CAQ) , 
X19$(40),X29$ (40) , X: (40) , W$ CAO) 

40 FOR Ј=1 TO 12:READ A:X(GD =А: МЕХТ J 

50 DATA 21,20,31,230,531,30,21,31,30,31, 30,531 

60 LO: 220. 99999: T=14:F=3. 14159265 

70 FOR J=1 TO 29:0 (J, J) CHRE (18) s Wi (J, J) =CHRS CS 
Z):NEXT J 

BO U$(15,15) CHR$(222:W$ (19,195) =CHRS (124) 


90 GRAPHICS O:sPRINT " BIORHYTHM":FRINT 
: PRINT 
100 FRINT " ENTER BIRTHDATE" 


110 GOSUB 240: JB=JD 

120 PRINT :FRINT " ENTER START DATE FOR CHART" 
150 GOSUB 240:JC-JD: IF JC?-JB THEN 150 

140 PRINT " CHART DATE CAN'T BE EARLIER THAN EI 
RTHDATE - TRY AGAIN" 

145 GOTO 100 

150 POKE 752,1:FOR 2-1 TO 1000:МЕХТ J 

160 GOSUB 330 


BIORHYTH 7 


170 N-JC-JB:V-23:G6G08UB 350:V-228:GO0SUB 250:V=35:6 

OSUB 350 

180 GOSUB 490:L-L-1:POKE 752,1:FRINT C$:POSITION 
10,L43: PRINT L®sJC#JC+1 

190 IF 1418 THEN 170 

200 POKE. 764,259:PRINT : PRINT " PRESS 'E' TO EN 

D OR SPACE TO CONTINUE": 

210 A-PEEK(C764):IF A-2255 THEN 210 

220 IF «42 THEN POKE 764,255:РОКЕ 752,0:POKE 82 

(2: END 

230 Lso:GOTO 160 

240 X(2)=28:FRINT :FRINT " YEAR "i: INPUT Y: Y-IN 

T(Y) 

245 IF Ү<0 THEN GOSUB 540:60Т0 240 

250 IF (Y/100)-CCINT(CY/100)) £20 THEN 270 

260 IF (Y¥/400)-CINT(Y/400) )<>0 THEN 280 

270 IF (Y/4)-(OINT(Y/4))zO0 THEN X (2) 22!) 


279 IF Ү<-99 THEN YzY*1900:PRINT "  "sYs" ASSUME 
р" 
280 PRINT " MONTH (1 TO 12) ";:1NPUT M:M-INT(M) 


IF М<1 OR M>12 THEN GÜSUE 540:G0TO 280 

290 PRINT " DAY (1 TO "3X(M)3") ";:INPUT D:IF D 
£1 OR D>X(M) THEN GOSUB 540:G0TO 290 

ZOO WeINT((M-14)/12*2) : IDE INT (1451ж (Y+4800+W) /4) 
:B2367X (M-2-Wk12) /12 

510 IF В<0 THEN B=B+Z 

520 B=INT (В) : JD=JD+B: B= INT (INT CZ (Y-4900W) /100) 
24) 34DsJD*D—22075-B: RETURN 

$30 GRAPHICS O:POSITION 16,1:POKE 752,1:PRINT "B 
IORHYTHM": POSITION 4,2:PRINT "DATE" 

240 POSITION 13,2:FRINT "DOWN о U Р":Е 
OR J=1 TO 10:PRINT CHRS$(CIE);:NEXT J:POSITION 10, 
ZsPRINT U$:RETURN 

350 W=INT (N/V) sR=N-WkY 

360 IF У<>22 THEN 390 

370 L$=W$ 

5280 IF V=23 THEN C$="P" 

390 IF V=28 THEN C$-"E" 

400 IF V=33 THEN C$="I" 

410 W-R/V:WsWX2XP:WesTXGIN(D :W-bT-1. S: WesINT(W): 
A$=L$(W,W) 

420 IF A$="P" OR A$="E" OR AS="K" THEN C$z"x" 
430 IF W-1 THEN 470 

440 IF W=T+T+1 THEN 480 

450 Xi1$-L$(1,W-1):X2$zL:5 (LEN (L$) - СТАТ), ЕМО) 
) :C=LEN(C$) : XISLEN(X1$) :X2=LEN(X2$) 

460 L$(1,X1)-X19:1$ OXIe1, X HC) CHL COXIACe1, X14C 
+X2) <Х2%: RETURN 

470 X1$-L$(LEN(L$) -CT*T-1) ,LEN(LS$) 0: С= ЕМ СФ) : ХІ 
=LEN(X1%) L$ (1,0) SCS:L $ (C1, CX 10 2X 1$: RETURN 

480 X1$=L$(1,7+T) : X1SLEN(X1S) s CSLEN(CS$) :L$ (1, X1) 
mXi$:L$(X1-1,X140) C$: RETURN 


8 Basic Programs for the Atari 


490 WzJC-68569:R-INT(OA4KXW/146097) : W=W-INT (6146097 

KR+3)/4) 2 Yz INT (40008 (0+1) /1461001) sWeW-INT (1461x 

Ү/4) +51 

SOO M=INT (80%W/2447) : D=W-INT (2447XM/80) t: Wz INT (МИ 

11) 2 M=M+2-1L2kWs Y-100X CR-49) c Y -W 

$10 X1$-STR$(OD: X2$-STR$ (D) : X5$-S8TR$ CY) : X1-LEN(CX 

15): X22LENCX28) s X 52: ЕМ(Х5%) 

520 СФ (1, Х1) =Х1Ф:СФ(Х1+1,Х1+1) z" /" :C$ CL 92, X1+X2 

*1)zX2S:0$0XLI424-X2,X1-29X2)z"n/7" 

SFO C$(X1+3+X2, X1+2+XS+XS) = ХФ: RETURN 

540 PRINT :PRINT " ЖЖ ILLEGAL ENTRY. TRY AGAIN. 
KE" SPRINT : RETURN 


EASY CHANGES 


1. Want to see the number of days between any two dates? Insert this 
line: 


175 PRINT “DAYS=”;N:END 


Then enter the earlier date as the birth date, and the later date as 
the start date for the chart. This will cause the program to display 
the difference in days and then end. 

2. To alter the number of days of the chart shown on each screen, 
alter the 18 in line 190. 


MAIN ROUTINES 


10- 90 Initializes variables. Displays titles. 
100-110 Asks for birth date and converts to Julian date format 
(i.e., the number of days since January 1, 4713 В.С.). 
120-145 Asks for start date for chart and converts to Julian date 
format and checks that chart date is not sooner than birth 


date. 
150 Delays about one second before displaying chart. 
160 Displays heading at top of screen. 
170 Determines number of days between birth date and cur- 


rent chart date and plots points in L$ string for each of 
the three cycles. Converts Julian date back into month/ 
day/year format. 

180 Displays one line on the chart and adds one to chart date. 

190-230 Checks to see if the screen is full. 

240-320 Subroutine to ask operator for month, day, and year. 
Edits replies. 

330-340 Subroutine to clear screen and display headings. 
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350-480 Subroutine to convert month, day, and year into Julian 


date format. 
490-530 Subroutine to convert Julian data JC back into month/ 
day/year format. 

540 Subroutine to print error message. 

MAIN VARIABLES 

L Counter of number of lines on screen. 

T Number of characters on one side of the center of the 
chart. 

P Pi. 

JB Birth date in Julian format. 

JD Julian date calculated in subroutine. 

JC Chart start date in Julian format. 

J Loop and work variable. 

N Number of days between birth and current chart date. 

v Number of days in present biorhythm cycle (23, 28, 
or 33). 

C$ String with date in month/day/year format. 

L$ String with one line of the biorhythm chart. 

R$ Reply from operator after screen fills up. 

M Month (1-12). 

D Day (1-31). 

Y Year (100 or greater). 

W, B Work variables. 

R Remainder of N/V (number of days into cycle). 

A$ Work variable. 


U$, W$ Formatting strings. 
SUGGESTED PROJECTS 


Investigate the biorhythms of some famous historical or athletic 
personalities. For example, are track and field athletes usually in the 
positive side of the physical cycle on the days that they set world 
records? Where was Lincoln in his emotional and intellectual cycles 
when he wrote “The Gettysburg Address”? Do a significant percent- 
age of accidents befall people on critical days? 
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CHCKBOOK 


PURPOSE 


Many people consider the monthly ritual of balancing the check- 
book to be an irritating and error-prone activity. Some people get 
confused and simply give up after the first try, while others give up 
the first time they cannot reconcile the bank statement with the 
checkbook. Fortunately, you have an advantage— your ATARI com- 
puter. This program takes you through the necessary steps to balance 
your checkbook, doing the arithmetic for you, of course. 


HOW TO USE IT 


The program starts off by giving you instructions about how to 
verify that the amount of each check and deposit are the same on the 
statement as they are in your checkbook. Sometimes the bank will 
make an error in reading the amount that you wrote on a check 
(especially if your handwriting is not too clear), and sometimes you 
will copy the amount incorrectly into your checkbook. While you are 
comparing these figures, make a check mark in your checkbook next 
to each check and deposit listed on the statement. A good system is to 
alternate the marks you use each month (maybe an “x” one month and 
a check mark the next) so you can easily see which checks and 
deposits came through on which statement. 

Next, the program asks for the ending balance shown on the bank 
statement. You are then asked for the check number (not the amount) 
of the most recent check shown on the statement. This will generally 
be the highest numbered check the bank has processed, unless you 
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like to write checks out of sequence. Your account balance after this 
most recent check will be reconciled with the statement balance, so 
that is what the program asks for next— your checkbook balance after 
the most recent check. 

The program must compensate for any differences between what 
your checkbook has in it prior to the most recent check and what the 
statement has on it. First, if you have any deposits that are not shown 
on the statement before the most recent check, you must enter them. 
Generally, there are none, so you just press the RETURN key. 

Next you have to enter the amounts of any checks that have not yet 
“cleared” the bank and that are prior to the most recent check. Look 
in your checkbook for any checks that do not have your check mark 
next to them. Remember that some of these could be several months 
old. 

Next you enter the amount of any service charges or debit memos 
that are on the statement, but which have not been shown in your 
checkbook prior to the most recent check. Typically, this is just a 
monthly service charge, but there might also be charges for printing 
new checks for you or some other adjustment that takes money away 
from you. Credit memos (which give money back to you) are not 
entered until later. Be sure to make an entry in your checkbook for 
any of these adjustments so that next month's statement will balance. 

Finally, you are asked for any recent deposits or credit memos that 
were not entered in your checkbook prior to the most recent check, 
but that are listed on the bank statement. It is not unusual to have one 
or two of these, since deposits are generally processed by banks 
sooner than checks. 

Now comes the moment of truth. The program tells you whether or 
not you are in balance and displays the totals. If so, pack things up 
until next month's statement arrives. 

If not, you have to figure out what is wrong. You have seven 
options of what to do next which allow you to review the numbers you 
entered in case of a typing error. If you find an error, go back to the 
beginning and try again. Of course, if it is a simple error that 
precisely accounts for the amount by which you are out of balance, 
there is no need to go through the whole thing again. 

If you entered everything correctly, the most likely cause of that 
out-of-balance condition is an arithmetic error in your checkbook. 
Look for errors in your addition and subtraction, with subtraction 
being the most likely culprit. This is especially likely if the amount of 
the error is a nice even number like one dollar or ten cents. 
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Another common error is accidentally adding the amount of a 
check in your checkbook instead of subtracting it. If you did this, 
your error will be twice the amount of the check (which makes it easy 
to find). 

If this still does not explain the error, check to be sure you sub- 
tracted last month's service charge when you balanced your check- 
book with the previous statement. And, of course, if you did not 
balance your checkbook last month, you cannot expect it to come out 
right this month. 

The program has limitations of how many entries you can make in 
each category (checks outstanding, deposits outstanding, etc.), but 
these can be changed easily. See ^Easy Changes" below. 


NOTE: SEE DISCLAIMER IN FRONT PART OF BOOK. 


SAMPLE RUN 


AMAL7 TER 


57. СбОМРАНЕ THE BANK 5TATEMENT 
T YOUR CHECKBODOK. 


SURE THE STATEMENT à 
SHOW THE 3AME F 
"CHECK AMD DEPOSI 
KB! 

LI: 


THE ENDING BALANCE SHOWN 
STATEMENT? 


E MOST RECENT CHECK THAT 
THE BANKE STATEMENT. 


THE CHECK MUMBER OF 


The program displays an introduction, and the operator begins providing 
the necessary information. 
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YOUR CHECKBOOK 
1652 


HE AMOUNT OF EACH DEPOSIT 
SHOWN IM TOUR CHECKBOOK 

3 CHECK М0. 1552 

NOT ON THE STATEMENT. 


М0 МОВЕ, РНЕ55 THE RETURN KEY 


HE AMOUNT OF ANY CHECKS 
THE CHECKBOOK PRIOR 
2 BUT THAT 
SHOWN ON à BANK 


PRE35 THE RETURN KEY 


The operator continues by entering the checkbook balance, and then 
presses RETURN to indicate no outstanding deposits. 


MO MORE. РВЕ55 THE RETURN KEY 
94 


ТОТА = 45.94 


мін ENTER THE AMDUNTS OF AMY SERVICE 
THARGES OR DEBIT MEMOS. 


HE AMOUNT OF EACH DEPOSIT 
SHOWN N YOUR CHECKBOOK 
ЕСЕ М0. 1552 THAT I5 

STED IM THE ЗТАТЕМЕМТ. 


E 
4 


"=" MO MORE, РНЕ55 THE RETURN KEY 


The operator enters the outstanding checks and the service charges. 
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9 


SMGRATULATION5' IT BALANCES”. 


МЕМТ BALANCE + 
ІТ5 OUTSTANDING + 
THARGES = 525.15 


BALANCE + 
STANDING + 
25-259. £6 


TO CONTINUE 


After the service charges are entered, the operator indicates no late 
deposits by pushing RETURN. The program displays balancing infor- 
mation and waits for a key to be pressed. 


PROGRAM LISTING 


10 REM CHCE BOOK 

15 REM COFYRIGHT 1984 DILITHIUM FRESS 

20 DIM 1% (20), E C30) АФ CAO) , REB (40) 

20 GRAPHICS © 

40 PRINT "CHECK BOOK ANALYZER" 

SO PRINT :FRINT 

60 MCs20: MD-10: MS-10: MR=1O 

70 L$-"NO MORE ROOM" 

во DIM СМС), 0 CMD) S (MS) .R CMR) 

GO TC=O:TD=TC: TS=TC: TR= TC: NDZTC: NC=TC: NS=TC: NR=T 
C 
100 ES="ERROR. RE-ENTER, FLEASE." 

110 PRINT "FIRST, COMPARE THE BANK STATEMENT" 
120 PRINT "WITH YOUR CHECK BOOK. "s PRINT 

150 PRINT "MARE SURE THE STATEMENT AND THE " 

140 PRINT "CHECKBOOK SHOW THE SAME FIGURES" 

150 PRINT "FOR EACH CHECK AND DEPOSIT." 

160 PRINT : PRINT "MAKE A MARE IN THE CHECKBOOK N 
EXT TO" 

170 PRINT "EACH CHECK AND DEFOSIT LISTED" 

180 PRINT "ON THE STATEMENT." 

190 PRINT :РКІМТ "WHAT'S THE ENDING BALANCE SHOW 
N н 
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200 PRINT "ON THE STATEMENT? ":INPUT SB 

210 PRINT :PRINT “NOW FIND THE MOST RECENT СНЕСЕ: 

THAT" 

220 PRINT "IS SHOWN ON THE BANK STATEMENT.” 

230 PRINT 

240 PRINT "WHAT IS THE CHECK NUMBER OF" 

200 PRINT "THIS СНЕСЕ? "s INPUT LC 

260 IF LC-INT(LCO THEN 290 

270 PRINT "NO, NOT THE AMOUNT OF THE CHECK." 

280 GOTO 210 

290 PRINT 

200 PRINT "WHAT BALANCE DOES YOUR CHECKBOOK" 

310 PRINT "SHOW AFTER CHECK NO. "ЫС 

520 INFUT CB 

550 PRINT :PRINT 

$40 PRINT "ENTER THE AMOUNT OF EACH DEFOSIT" 

350 PRINT "THAT IS SHOWN IN YOUR CHECKBOOK" 

260 PRINT "PRIOR TO CHECK NO. "LC 

370 PRINT "BUT IS NOT ON THE STATEMENT." 

$80 A$-"WHEN NO MORE, PRESS THE RETURN KEY":FRIN 

T :PRINT АФ 

$90 INFUT R$ 

400 IF LEN(R$)=0 THEN 460 

410 IF VAL(OR$)7O THEN 430 

420 PRINT :FRINT &%sGOTO 380 

450 ND=ND+1:D (ND) =VAL (RS) : TD=TD+D (ND) 

440 IF ND<MD THEN 390 

450 PRINT : PRINT L$ 

460 PRINT :PRINT "TOTAL = "i TD: PRINT 

470 PRINT "NOW ENTER THE AMOUNT ОҒ ANY CHECKS" 

480 PRINT "THAT ARE IN THE CHECKBOOK PRIOR " 

490 FRINT "TO CHECK "sLC;" BUT THAT" 

S00 PRINT "HAVE МОТ BEEN SHOWN ON A BANK " 

510 PRINT "STATEMENT YET." 

520 PRINT :PRINT АФ 

ЕЛО INFUT R$ 

540 IF LEN(R$)-0 THEN 610 

550 IF VAL (КФ) ^O THEN 580 

S60 PRINT :PRINT ЕФ 

570 GOTO 520 

$80 NC=NC+1:C (NC) =VAL (R$) : TC=TC+C (NC) 

590 IF МС<МС THEN S30 

600 PRINT :FRINT L$ 

610 PRINT :FRINT "TOTAL = "i TC: PRINT 

620 FRINT "NOW ENTER THE AMOUNTS OF ANY SERVICE 
CHARGES OR DEBIT MEMOS." 

630 PRINT :FRINT АФ 

640 INPUT КФ 

&50 IF LEN(R$)-O THEN 710 

660 IF VAL (КФ) >O THEN 680 

870 PRINT :PRINT E$:GOTO 430 

680 NS=NS+1:5 (NG) =VAL (RS) : TS=TS+S5 (NS) 
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£90 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
BOO 
810 
B15 
B20 
50 
835 
B40 
ggo 
воо 
870 
SE # 
BBO 
B90 
900 
910 
920 
920 
940 
950 
960 
970 
980 
590 


IF NSEMS THEN 640 

PRINT :FRINT 1% 

PRINT :PRINT "TOTAL = "iTS:PRINT 

GOSUB 1210 
W=SB+TD+TS-CB-TC-TR: W=ABS (W) 

IF WO1.0E--03 THEN Ws 

IF М<>0 THEN 780 

PRINT "CONGRATULATIONS! IT BALANCES." 
GOTO 790 

PRINT :PRINT "SORRY, IT'S QUT OF BALANCE." 
PRINT 

PRINT "STATEMENT BALANCE +" 

PRINT "DEPOSITS OUTSTANDING +" 

PRINT "SERVICE CHARGES = ";SB+TD+TS 
PRINT 

PRINT "CHECKBOOK BALANCE +" 

PRINT "CHECKS QUTSTANDING +" 

FRINT "RECENT DEPOSITS = ":CE+TC+TR 
PRINT 

PRINT “DIFFERENCE = ";W 

PRINT :PRINT "PRESS ANY KEY TO CONTINUE": CLO 
1:0PEN #1,4,0, "Кі" 

GET #1,R 

PRINT 

PRINT "NEXT ACTION: " 

PRINT "1 - LIST CHECKS OUTSTANDING" 
PRINT "2 - LIST DEPOSITS OUTSTANDING" 
PRINT "Z - LIST SERVICE CHARGES" 

PRINT "4 ~ START OVER" 

PRINT "5 - END PROGRAM" 

PRINT "6 — DISPLAY BALANCING INFO" 
PRINT "7 — LIST DEPOSITS AFTER LAST CHECK" 
GET #1,R:IF R49 OR R»S6 THEN 980 
R=VAL (CHR$ (R) ) 


1000 IF Rel OR К>7 THEN 1020 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


ON К GOTO 1030,1070,1110,1120,1160,790,1170 
PRINT :PRINT ЕФ: GOTO 890 

PRINT :РКІМТ "CHECKS OUTSTANDING" 
FOR 4-і TO NC 

PRINT C(J):NEXT J 

GOTO 870 

PRINT :FRINT "DEPOSITS OUTSTANDING" 
FOR J=1 TO ND 

PRINT D(J):NEXT J 

BOTO 870 

PRINT :FRINT "SERVICE CHARGES" 

FOR 4-і TO NS 

PRINT S(J)?:NEXT J 

GOTO 870 

CLR :GOTO 20 

END 

PRINT :PRINT "RECENT DEPOSITS" 
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1180 FOR 0-1 TO NR 

1190 PRINT Rid) NEXT J 

1200 GOTO 870 

1210 PRINT "ENTER THE AMOUNT OF EACH DEPOSIT" 
1220 PRINT “THAT IS SHOWN IN YOUR CHECKROOK " 
1230 FRINT “AFTER CHECK NO. "3LC3" THAT IS" 
1240 PRINT "ALSO LISTED IN THE STATEMENT." 
1250 PRINT :FRINT A$ 

1260 INFUT F$ 

1270 IF LEN(R$)-O THEN 1520 

1280 IF VAL (КФ) 20 THEN 1300 

1290 PRINT :FRINT ЕФ: БОТО 1250 

1300 NR=eNR+i:R (NR) =VAL. (ЕФ) š TRE TR+R СМА 

1510 IF NRZzMR THEN 1260 

320 PRINT :FRINT Lẹ 

1320 PRINT :FRINT "TOTAL = "iTR:PRINT 

1540 RETURN 


EASY CHANGES 


Change the limitations of how many entries you can make in each 
category. Line 60 establishes these limits. If you have more than 20 
checks outstanding at some time, change the value of MC to 50, for 
example. The other three variables can also be changed if you antici- 
pate needing more than 10 entries. They are: the number of deposits 
outstanding (MD), the number of service charges and credit memos 
(MS), and the number of recent deposits and credit memos (MR). 
You'll need sufficient memory free to make these changes. (See 
Appendix 1.) 


MAIN ROUTINES 


10- 180 Initializes variables and displays first instructions. 
190- 280 Gets most recent check number. 
290- 330 Gets checkbook balance after most recent check 
number. 

340- 460 Gets outstanding deposits. 

470- 610 Gets outstanding checks. 

620- 710 Gets service charges and debit memos. 

720 Gets recent deposits and credit memos. 

730- 890 Does balancing calculation. Displays it. 

900-1020  Asks for next action. Goes to appropriate subroutine. 
1030-1060 Subroutine to display checks outstanding. 
1070-1100 Subroutine to display deposits outstanding. 
1110-1140 Subroutine to display service charges and debit memos. 
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1150 Restarts program. 

1160 Ends the program. 

1170-1200 Subroutine to display recent deposits. 
1210-1340 Subroutine to get recent deposits. 


MAIN VARIABLES 

MC Maximum number of checks outstanding. 

MD Maximum number of deposits outstanding. 

MS Maximum number of service charges, debit memos. 
MR Maximum number of recent deposits, credit memos. 
C Array for checks outstanding. 

D Array for deposits outstanding. 

S Array for service charges and debit memos. 

R Array for recent deposits and credit memos. 

TC Total of checks outstanding. 

TD Total of deposits outstanding. 

TS Total of service charges and debit memos. 

TR Total of recent deposits and credit memos. 

NC Number of checks outstanding. 

ND Number of deposits outstanding. 

NS Number of service charges and debit memos. 

NR Number of recent deposits and credit memos. 

E$ Error message. 

SB Statement balance. 

LC Number of last check on statement. 

CB Checkbook balance after last check on statement. 
R$ Reply from operator. 

W Amount by which checkbook is out of balance. 

R Numeric value of reply for next action. 

A$ Message showing how to indicate no more data. 
L$ Message indicating no more room for data. 

J Loop variable. 

SUGGESTED PROJECTS 


1. Add more informative messages and a more complete introduction 
to make the program a tutorial for someone who has never bal- 
anced a checkbook before. 

2. Allow the operator to modify any entries that have been discovered 
to be in error. This could be done by adding another option to the 
“NEXT ACTION?” list, which would then ask the operator which 
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category to change. This would allow the operator to correct an 
error without having to re-enter everything from the beginning. 

. If the checkbook is out of balance, have the program do an analysis 
(as suggested in the "How To Use It" section) and suggest the most 
likely errors that might have caused the condition. 

. Allow the operator to find arithmetic errors in the checkbook. Ask 
for the starting balance, then ask for each check or deposit 
amount. Add or subtract, depending on which type the operator 
indicates. Display the new balance after each entry so the operator 
can compare with the checkbook entry. 


DECIDE 


PURPOSE 


"Decisions, decisions!" How many times have you uttered this 
lament when confronted by a difficult choice? Wouldn't a trusty 
advisor be helpful on such occasions? Well, you now have one— your 
ATARI computer, of course. 

This program can help you make decisions involving the selection 
of one alternative from several choices. It works by prying relevant 
information from you and then organizing it in a meaningful, quan- 
titative manner. Your best choice will be indicated and all of the 
possibilities given a relative rating. 

You can use the program for a wide variety of decisions. It can help 
with things like choosing the best stereo system, saying yes or no toa 
job or business offer, or selecting the best course of action for the 
future. Everything is personalized to your individual decision. 


HOW TO USE IT 


The first thing the program does is ask you to categorize the 
decision at hand into one of these three categories: 

1) Choosing an item (or thing), 

2) Choosing a course of action, or 

3) Making a yes or no decision. 
You simply press 1, 2, or 3 and then press RETURN to indicate 
which type of decision is facing you. If you are choosing an item, you 
will be asked what kind of item it is. 
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If the decision is either of the first two types, you must next enter a 
list of all the possibilities under consideration. A question mark will 
prompt you for each one. When the list is complete, type "END" in 
response to the last question mark. You must, of course, enter at least 
two possibilities. (We hope you don't have trouble making decisions 
from only one possibility!) After the list is finished, it will be re- 
displayed so that you can verify that it is correct. If not, you must re- 
enter it. 

Now you must think of the different factors that are important to 
you in making your decision. For example, location, cost, and qual- 
ity of education might govern the decision of which college to attend. 
For a refrigerator purchase, the factors might be things like price, 
size, reliability, and warranty. In any case, you will be prompted for 
your list with a succession of question marks. Each factor is to be 
entered one at a time with the word “END” used to terminate the list. 
When complete, the list will be re-displayed. You must now decide 
which single factor is the most important and input its number. (You 
can enter O if you wish to change the list of factors.) 

The program now asks you to rate the importance of each of the 
other factors relative to the most important one. This is done by first 
assigning a value of 10 to the main factor. Then you must assign a 
value from 0-10 to each of the other factors. These numbers reflect 
your assessment of each factor's relative importance as compared to 
the main one. A value of 10 means it is just as important; lesser 
values indicate how much less importance you place on it. 

Now you must rate the decision possibilities with respect to each of 
the importance factors. Each importance factor will be treated sepa- 
rately. Considering only that importance factor, you must rate how 
each decision possibility stacks up. The program first assigns a value 
of 10 to one of the decision possibilities. Then you must assign a 
relative number (lower, higher, or equal to 10) to each of the other 
decision possibilities. 

An example might alleviate possible confusion here. Suppose you 
are trying to decide whether to get a dog, cat, or canary for a pet. 
Affection is one of your importance factors. The program assigns a 
value of 10 to the cat. Considering only affection, you might assign а 
value of 20 to the dog and 6.5 to the canary. This means you consider 
a dog twice as affectionate as a cat but a canary only about two-thirds 
as affectionate as a cat. (No slighting of bird lovers is intended here, 
of course. Your actual ratings may be entirely different.) 
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Armed with all this information, the program will now determine 
which choice seems best for you. The various possibilities are listed 
in order of ranking. Alongside each one is a relative rating with the 
best choice being normalized to a value of 100. 

Of course, DECIDE should not be used as a substitute for good, 
clear thinking. However, it can often provide valuable insights. You 
might find one alternative coming out surprisingly low or high. A 
trend may become obvious when the program is re-run with im- 
proved data. At least, it may help you think about decisions systemat- 
ically and honestly. 


SAMPLE RUN 


DECIDE 
I сам HELP YOU MAKE A DECISION. ALL 


I MEED TO DO І5 ASK SOME QUESTIONS AND 
THEM ANALYZE THE INFORMATION YOU GIVE. 


AHICH OF THESE BEST DESCRIBES THE TYPE 
JF DECISION FACING YOU? 


1) CHOOSING AN ITEM FROM VARIOUS 
ALTERNATIVES. 


2) CHOOSING à COURSE OF ACTION FROM 
VUARIOUS ALTERNATIVES. 


2) MAKING а 'TES' OR 'NO' DECISION. 


AHICH OWE (1, 2, OR 352718 


After displaying an introduction, the program asks what type of decision 
is to be analyzed. The operator indicates choice #1. 
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DECIDE 


I NEED TO HAVE а LIST OF EACH 
JACATIOM UNDER COMSIDERATION. 


INPUT THEM ONE AT A TIME 
IN RESPONSE TO EACH QUESTION MARK. 


THE ORDER IN WHICH YOU INPUT THEM 
HAS MO PARTICULAR SIGNIFICANCE. 


TYPE THE WORD 'END' TO INDICATE 


THAT THE WHOLE LIST HAS BEEN ENTERED. 


>MOUNTAIN CAMPING 
AFRICAN SAFARI 

"TRIP TO WASHINGTON D.C. 
ENDER 


After indicating he will be choosing a “VACATION,” the operator lists 
the vacations under consideration. 


D. f © I D E 
THINK OF THE DIFFERENT FACTORS 
IMPORTANT TO YOU IM CHOOSING 
YACATION. 


T THEM OME АТ à TIME IN RESPONSE 
QUESTION MARK. 


THE WORD 'EMD' TO TERMINATE 


The program re-displays the list of vacations and the operator verifies its 
correctness. He then enters the importance factors as requested. 
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DECIDE 


HERE'S THE LIST OF FACTORS YOU GAVE ME: 


RELAXATION 
AFFORDABILITY 
CHAMGE OF PACE 


DECIDE WHICH FACTOR OM THE LIST І5 
THE MOST IMPORTANT AND INPUT ITS NUMBER. 


CTYPE 8 IF THE LIST MEEDS CHANGING.) 
^? Hg 


The operator chooses “AFFORDABILITY” as the primary importance 
factor. 


Di 6 m LE CODE 


> ЭЦИРРОЗЕ WE НАМЕ A SEALE ОҒ 
RANGING FROM 80-19. 


GIVE AFFORDABILITY 
18 SINCE AFFORDABIL 
^ THE MOST IMPORTANT 


a 
ITY 


SCALE, WHAT VALUE OF 
HOULD THE OTHER FACTORS HAVE? 


The operator selects numerical values for the other two factors. 
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WASHINGTON D.C . 3 


INGIGCERING ONLY AFFORDABILITY AND 
ILMING 19 TO MOUNTAIN CAMPING 
JALUE WOULD YOU A553IGN TO 


зағанІті 


HASHIMNGTOM D.C.?3 


ONLY CHANGE OF PACE AND 
T0 MOUNTAIN CAMPING ; 
i YOU ASSIGN TO 


After being given instructions on how to rate each vacation with respect 
to each factor, and entering 3 for the African safari, the operator provides 
the additional requested data. 


a 
eal 


The program displays the choices in order of desirability. 
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PROGRAM LISTING 


10 REM DECIDE 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 

150 GRAPHICS O:POKE 82,0:PRINT СНАФ (125) 

160 DIM L$(500) ,F$(500) ,VC10) ,CCXG1O, 100 ,D(10), 201 
0) „ТФ (40), ХФ A0) ,ES C10) , R$ CAO) , LX CLOD) ,FX C10) 

170 FOR 1-1 TO 500:L¢ (J) =CHRS (32) :F$ (J) SCHR$ (32) 
:NEXT J 

180 E$="END" 

200 GOSUE 2000 

210 PRINT " I CAN HELF YOU MAKE А DECISION. AL 
tL" 

220 PRINT "I NEED TO DO IS ASK SOME QUESTIONS AN 
D" 

20 PRINT "THEN ANALYZE THE INFORMATION YOU GIVE 
."sPRINT 

240 GOSUB 2050:FRINT 

250 PRINT "WHICH OF THESE BEST DESCRIBES THE TYF 
E" 

260 PRINT "OF DECISION FACING YOU?":PRINT 


270 PRINT " 1) CHOOSING AN ITEM FROM VARIOUS" 
280 FRINT " ALTERNATIVES. ": PRINT 

290 PRINT " 2) CHOOSING А COURSE OF ACTION FROM 
" 

200 PRINT " VARIQUS ALTERNATIVES.":PRINT 

310 PRINT " 5) MAKING А “YES? OR 'NO' DECISION. 
"PRINT 


520 PRINT "WHICH ONE (1, 2, OR 3)"; 

330 INPUT R$ 

555 IF КФ="" THEN 200 

$40 IF КФС>"1" AND КФе>"2" AND КФе>"35" THEN ^? :? 
"ЖЖ ILLEGAL ENTRY xx": :G0TO 220 

545 T=VAL (RS) 

350 GOSUE 2000 

400 ОМ T GOTO 410,440,470 

410 PRINT "WHAT TYPE ОҒ ITEM MUST YOU DECIDE UFO 

N" 

420 INPUT T$:IF T$="" THEN 410 

430 GOTO 500 

440 T$="COURSE OF ACTION":GOTO $500 

470 T$z"'YES' OR "МОР" 

480 NI-2:L$(1,12)2"DECIDING VES":L$(51,61)="DECI 

DING NO":LX((12)-212:1.X (2) 211 

490 GOTO 750 

S00 50508 2000:МІтО 


S10 PRINT " I NEED TO HAVE А LIST ОҒ EACH" 
520 PRINT ТФ; " UNDER CONSIDERATION. ": PRINT 
S30 PRINT " INPUT THEM ONE АТ A TIME" 


540 PRINT "IN RESPONSE TO EACH QUESTION MARK.":F 
RINT 
$90 PRINT " THE ORDER IN WHICH YOU INPUT THEM" 
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560 PRINT “HAS NO PARTICULAR SIGNIFICANCE. ":PRIN 

T 

$70 PRINT " ТҮРЕ THE WORD ”";Е%;"” TO INDICATE 

$80 PRINT "THAT THE WHOLE LIST HAS BEEN ENTERED. 
"PRINT 

$90 NI=NI+1: INPUT X$:1F X$=E$ THEN 610 

592 IF X$="" THEN NIzNI-1:PRINT :PRINT "XX ILLEG 

AL ENTRY XX":PRINT : GOTO S90 

594 IF (ЕМ(Х%)>55 THEN PRINT "x YOUR ITEM IS TOO 
LONG. RE-ENTER IT. X":FOR K-1 TO 1000:NEXT K:NI 
zNI-1:GOTO 590 

595 L$(€(ONI-1) Ж50+1, (NI-1) KSO+LEN(X$) ) ZX$:L X (NID = 
LEN (ХФ) 

600 GOTO 590 

610 NIzNI-1 

6:20 IF NI>=2 THEN 650 

650 PRINT :PRINT "Ж YOU MUST HAVE AT LEAST 2 CHO 
ICES X":PRINT 

640 PRINT "ЖЖ TRY AGAIN X*":GOSUB 2100: БОТО 500 
450 GOSUB 2000: PRINT "HERE'S THE LIST YOU'VE GIV 
EN ME":PRINT 

&60 FOR 4-1 TO NI:PRINT Js". ":L$(((J-12*SO-*1, (J—- 
1)xSO*LX(J)) NEXT J: PRINT 

670 PRINT "IS THIS CORRECT (Y OR N) "; 

680 INPUT R$ 

685 IF R$z"" THEN PRINT : PRINT "kk ILLEGAL ENTRY 
XX":PRINT : GOTO 680 

690 IF R$(1,1)-"Y" THEN 750 

695 IF R$(1.,1)022"N" THEN 670 

700 PRINT "kk THE LIST MUST BE RE-ENTERED жж" 

710 GOSUB 2100:60TO Soo 

750 650506 2000 

760 PRINT " NOW, THINE OF THE DIFFERENT FACTOR 

5 и 

770 IF T43 THEN FRINT "THAT АКЕ IMFORTANT TO YOU 
IN CHOOSING" 

780 IF T«3 THEN PRINT "THE BEST ";T$;"." 

790 IF Tz3 THEN PRINT "THAT ARE IMPORTANT TO YOU 
IN DECIDING":PRINT "YES OR NO" 


goo PRINT :PRINT " INPUT THEM ONE AT & TIME IN 
RESFONSE" 

810 PRINT "TO EACH QUESTION MARE. ": PRINT 

820 PRINT " ТҮРЕ THE WORD *";&%3;"" TO TERMINAT 


E " 

B30 РКІМТ "THE LIST.":FRINT :NF-O 

840 NFzNF-1:INPUT Х%:1Ғ X$=E% THEN 860 

B42 IF X$="" THEN PRINT "жж ILLEGAL ENTRY XX":NF 

=NF-1: GOTO 840 

B45 IF LEN(X$) 235 THEN PRINT :РКІМТ "k YOUR ITEM 
IS TOO LONG. RE-ENTER IT.":PRINT :FOR K=1 TO 10 

OO:NEXT Е: NF=NF-1 
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BSO F$(OQONF-1) k50+1, (МЕ-1) KSO+LEN (XS) ) -X$: EX СМЕ) = 
LEN(CX$) 

855 GOTO 840 

860 NFzNF-1:FRINT 

E70 IF МЕ<1 THEN PRINT "YOU MUST HAVE AT LEAST Ü 
NE! ~ REDO IT" 

630 IF NFz1 THEN GOSUB 2100:G6G0TO 750 

890 GOGUE 2000: PRINT "HERE'S THE LIST ОҒ FACTORS 
YOU GAVE ME: ":; PRINT 

900 FOR 4-1 TO МҒІРКІМТ Ji". ";Ғ%Ф((4-1) X501, (J— 
1)XxSO-FX(J)):NEXT J:PRINT 

910 PRINT " DECIDE WHICH FACTOR ОМ THE LIST IS 


S20 PRINT "THE MOST IMPORTANT AND INPUT ITS NUMB 
ER." 


G30 PRINT "(ТҮРЕ © IF THE LIST NEEDS CHANGING.)" 
: PRINT 

940 INPUT A: А=ІМТ (А): IF A=O THEN 750 

950 IF ACO OR ASNF THEN 890 

1000 GOSUB 2000: IF NF-1 THEN 1200 

1010 PRINT " NOW LET S SUPFOSE WE HAVE А SCALE 
оғ" 

1020 РКІМТ "IMPORTANCE RANGING FROM O—10.":PRINT 


1050 PRINT " WE? LI. GIVE ":F$(CCA-1) XSO*1, (А-1) Ж 
SO«FXOGD)01" A" 

1040 PRINT "VALUE OF 10 SINCE ":F$((A-1) XSO*1, (A 
-1) x50+FX (A) ) 

1050 FRINT "WAS RATED THE MOST IMPORTANT. ": PRINT 


1060 PRINT " ON THIS SCALE, WHAT VALUE OF" 
1070 PRINT "IMPORTANCE WOULD THE OTHER FACTORS H 
AVE?" 

1080 FOR J=1 TO NF:Q=A:1F J=Q THEN 1110 

1090 PRINT :FRINT Ғ%С((/7-12Ж5041, (2-1) Ж5О-ҒЕХ (029: 
INPUT XX:V (GI -XX 

1100 IF V(J)<Q OR VJ) 210 THEN РКІМТ :РКІМТ "XX 
IMPOSSIBLE VALUE ~ TRY AGAIN XX":PRINMT :GOTO 109 
о 

1110 NEXT J 

1200 V(A)=10:0=0:FOR J=1 ТО NF:Q-UQ-V(GD NEXT J:F 
QR J=1 TO NF 

1210 VOGDzVGDO/Q:NEXT Ј: GOSUB 2000 

1220 IF Т<>5 THEN PRINT " EACH "3TH 

1230 IF T-3 THEN FRINT " DECIDING YES OR МО" 
1240 PRINT "MUST NOW BE COMPARED WITH RESPECT ТО 
1250 FRINT "EACH IMPORTANCE FACTOR." 

1260 PRINT " WE? LL CONSIDER EACH FACTOR" 

1270 PRINT "SEPARATELY AND THEN RATE" 

1280 IF Т<>5 THEN PRINT "EACH ":T$;" IN TERMS" 
1290 IF T=3 THEN РКІМТ “DECIDING YES OR DECIDING 
NO IN TERMS" 
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1300 РКІМТ "OF THAT FACTOR ONLY." 

1310 PRINT " LET'S GIVE "SLS$CI,LXCLIOD 

1320 PRINT "A VALUE OF 10 ON EVERY SCALE.":FRINT 
1530 IF Те>5 THEN PRINT " THEN EVERY (THER "sT 
$ 
1:340 IF T=š THEN FRINT " THEN DECIDING NO" 
1350 PRINT "WILL BE ASSIGNED A VALUE HIGHER OR" 
1360 PRINT "LOWER THAN 10. THIS VALUE DEFENDS Ü 
м" 

1570 PRINT "HOW MUCH YOU THINK IT IS BETTER OR" 
1580 PRINT "WORSE THAN ";L:$(1,LXC1)25; ". "s FRINT 
1390 FOR 2-1 TO.NF 

1400 (3Q0SUB 2050: FRINT 

1410 PRINT " CONSIDERING ONLY ":F$((J-1)xXSO-1, 
(2-10 K5O4+FX OJ) ә)" AND" 

1420 FRINT “ASSIGNING 10 TO ";L$(1,LX(1)) y" 3" 
1430 PRINT "WHAT VALUE WOULD YOU ASSIGN TO" 

1440 PRINT :FOR Ке-2 TO NI 

1450 PRINT 1%((К-1) k50+1, (К-1) ЖОН X C00 s š INF'UT 
ХХ:СК,Ј) -XX: PRINT s IF C(K,J)>=0 THEN 1470 

1460 PRINT " ~ NEGATIVE VALUES NOT LEGAL":GOTO 1 
450 

1470 NEXT КІРКІМТ :C(1,J)=1O:NEXT J 

1500 FOR J=1 TO NF:@=0:FOR К=1 TO NI 

1910 Q=Q4C(K,d):NEXT K:FOR K=1 TO NI 

1520 CCK, J) =СКЕ, J) ZA NEXT кіМЕХТ J 

1550 FOR K=1 TO NI:D(k)-O:FOR J=1 TO NF 

1540 D(F)=D(FK) + (F J) XVCJ) NEXT Ji NEXT F 

1550 MX=0:FOR К=1 TO NI 

1560 IF D(K)»5MX THEN MX=D (К) 

1570 NEXT K:FOR K=1 TO МІ:0р (К) =р (К) K100/MX:NEXT 
K 

1600 FOR К=1 TO №МІ:2 (К) =К: МЕХТ К:ММ-МІ-1 

1610 FOR К=1 TO NI:FOR J=1 TO ММ: №М1=2 (J) : №27 (J+ 
10:IF р‹мі) >0 (М2) THEN 1630 

1620 2(Ј+1) =3№1:2(Ј) =N2 

1630 NEXT J:NEXT К:Ј1=2 (1) :7]2=2 (2) : DFZD(CJ1) -D(JZ2 
):GOSUB 2000 

1700 PRINT ЦФ 731-17) ж50+1, 071-1) 90А (015 73 
1710 PRINT " COMES OUT BEST” 

1720 IF рғ<9 THEN PRINT "BUT IT'S VERY CLOSE.":G 
ОТО 1800 

1730 IF DFZ10 THEN FRINT "BUT IT^S FAIRLY CLOSE. 
"sG0TO 1800 

1740 IF DFZz2O0 THEN PRINT "BY A FAIR AMOUNT. ": GOT 
Ü 1800 

1750 PRINT "QUITE DECISIVELY." 

1800 PRINT :PRINT "HERE IS THE FINAL LIST ІМ ORD 
ER." : PRINT 

1810 PRINT L$O(J1—10 X50*1, (7371-1) KGO*LXCJ1220 5" HA 
S BEEN" 

1820 PRINT "GIVEN А VALUE OF 100 AND THE OTHERS" 
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1830 PRINT "RATED ACCORDINGLY. "s PRINT 

1840 GOSUB 20250:FRINT 

1845 X$=" "s 
КЕМ 57 BLANK SPACES 

1850 FOR J=1 TO NI:Q=Z(J):PRINT D(Q)::POSITION і 
6, PEEK (34) 

1855 PRINT L$(O(Q-1) k504+1, (0-1) X504+LX (Q)) :NEXT J 

1860 END 

2000 FOR 2-1 TO SO:NEXT J 

2010 PRINT СНЕФ (125) :POGITION 14,2:PRINT "DEC 

I D E"sPRINT :RETURN 

2050 PRINT СНК%(52);:ҒОК K=1 TO 36:FRINT CHR$(18 
)::МЕХТ КІРКІМТ :RETURN 

2100 FOR 2-і TO 3OO:NEXT J:RETURN 


EASY CHANGES 


к 


. The word “ЕМІ” is used to Нар the termination of various input 
lists. If you wish to use something else (because of conflicts with 
items on the list), change the definition of E$ in line 180. For 
example, to use the word “DONE,” change line 180 to 


180 E$=“DONE” 


2. Line 2100 contains a timing delay used regularly in the program. 
If things seem to change too fast, you can make the number 300 
larger. Try 


2100 FOR J=1 TO 500:NEXT J:RETURN 


[2%] 


. The program can currently accept up to nine decision alternatives 
and/or nine importance factors. If you need more, increase the 
dimensioning in line 160. Each numeric dimension value is one 
more than the number the program will actually allow. Thus, to use 
14 values, line 160 should be 


160 DIM L$(750),F$(750),V(15),C(15,15),Z(15),D(15), 
T$(40),X$(40),E$(15),R$(40),LX(15), FX(15) 


MAIN ROUTINES 


150- 180 Initializes and dimensions variables. 

200- 350 Determines category of decision. 

400- 490 Gets or sets T$. 

500- 710 Gets list of possible alternatives from user. 
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750- 950 Gets list of importance factors from user. 
1000-1110 User rates each importance factor. 
1200-1470 User rates the decision alternatives with respect to each 
importance factor. 
1500-1570 Evaluates the various alternatives. 
1600-1630 Sorts alternatives into their relative ranking. 
1700-1860 Displays results. 
2000-2010 Subroutine to clear screen and display header. 
2050 Formatting subroutine. 
2100 Delay subroutine. 
MAIN VARIABLES 
NI Number of decision alternatives. 
L$ String array of the decision alternatives. 
NF Number of importance factors. 
F$ String array of the importance factors. 
V Array of the relative values of each importance factor. 
A Index number of most important factor. 
C Array of relative values of each alternative with respect to 
each importance factor. 
T Decision category (1 =item, 2=course of action, 3=yes 
ог no). 
X$ User input string. 
T$ String name of decision category. 
E$ String to signal the end of an input data list. 
J,K Loop indices. 
R$ User reply string. 
Q, N1, N2, Work variables. 
J1, J2, 
NM, XX 
D Array of each alternatives value. 
MX Maximum value of all alternatives. 
DF Rating difference between best two alternatives. 
Z Array of the relative rankings of each alternative. 
LX, ЕХ Work arrays 


SUGGESTED PROJECTS 


1. Allow the user to review the numerical input and modify it if 


desired. 
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2. Insights into a decision can often be gained by a sensitivity analysis. 
This involves running the program a number of times for the same 
decision. Each time, one input value is changed (usually the one 
you are least confident about). By seeing how the results change, 
you can determine which factors are the most important. Currently, 
this requires a complete rerunning of the program each time. 
Modify the program to allow a change of input after the regular 
output is produced. Then recalculate the results based on the new 
values. (Note that many input arrays are clobbered once all the 
input is given. This modification will require saving the original 
input in new arrays so that it can be reviewed later.) 
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LOAN 


PURPOSE 


One of the most frustrating things about borrowing money from a 
bank (or credit union or savings and loan) is that it's not easy to fully 
evaluate your options. When you are borrowing from a credit union 
to buy a new car, you might have the choice of a thirty-six or a forty- 
eight month repayment period. When buying a house, you can some- 
times get a slightly lower interest rate for your loan if you can come 
up with a larger down payment. What option is best for you? How 
will the monthly payment be affected? Will there be much difference 
in how fast the principal of the loan decreases? How much of each 
payment will be for interest, which is tax-deductible? 

You need to know the answers to all these questions to make the 
best decision. This program gives you the information you need. 


HOW TO USE IT 


The program first asks you the size of the loan you are considering. 
Only whole dollar amounts are allowed — no pennies. Loans of one 
million dollars or more are rejected (you can afford to hire an invest- 
ment counselor if you want to borrow that much). Then you are asked 
the yearly interest rate for the loan. Enter this number as a percent- 
age, such as “10.8.” Next, you are asked to give the period of the loan 
in months. For a five year loan, enter 60. For a thirty year mortgage, 
enter 360. The program then displays this information for you and 
calculates the monthly payment that will cause the loan to be paid off 
with equal payments each month over the life of the loan. 

At this point you have four options. First, you can show a monthly 
analysis. This displays a month-by-month breakdown, showing the 
state of the loan after each payment. The four columns of data shown 
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for each month are the payment number (or month number) of the 
loan, the remaining balance of the loan after that payment, the 
amount of that payment that was interest, and the accumulated inter- 
est paid to date. Sixteen lines of data are displayed on the screen, and 
then you can either press the T key to get the final totals for the loan 
or any other key to get the data for the next sixteen months of the 
loan. 

Тһе second option is overriding the monthly payment. It is а 
common practice with second mortgage loans to make smaller 
monthly payments each month with a large "balloon" payment as the 
final payment. You can use this second option to try various monthly 
payments to see how they affect that big payment at the end. After 
overriding the monthly payment, you will want to use the first option 
next to get a monthly analysis and final totals using the new monthly 
payment. 

The third option is to simply start over. You will generally use this 
option if you are just comparing what the different monthly payments 
would be for different loan possibilities. 

The fourth option ends the program. 

By the way, there is a chance that the monthly payment calculated 
by your lender will differ from the one calculated here by a penny or 
two. We like to think that this is because we are making a more 
accurate calculation. 


NOTE: SEE DISCLAIMER IN FRONT PART OF BOOK. 
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SAMPLE RUN 


ZALCULATOR 


AMOUNT 757509 


T RATE: 241-475 
LOAN (MONTHS) 


The operator enters the three necessary pieces of information about his 
or her loan. 


599 FOR 558 MONTHS AT 
MONTHLY PAYMENT I5 3531.3 


NEXT ACTION: 


SHOW MONTHLY ANALYSIS 

JUERRIDE MONTHLY PAYMENT 
START OVER 
к 


ND 


The program responds with the monthly payment that will pay off the 
loan with equal payments over its life, then asks the operator what to do 
next. The operator asks for the monthly analysis. 
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4d aam em oar 
Bend tuat 


iaa dae qut de Tra 


3 


The program responds with information about the first 16 months of the 
loan, then waits. 


2362508. FOR 368 MONTHS АТ 11.75% 
CALCULATING TOTALS... 


LAST PAYMENT $654.66 
TOTAL PAYMENTS $245262.98 
MONTHLY PAYMENT $681.36 


PRESS ANY KEY TO CONTINUE 


The operator presses ^T", and after a few seconds the program displays 
totalling information about the loan. 


LOAN 


39 


PROGRAM LISTING 


10 REM LOAN 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 
20 OPEN $1,4,0,"K:":PÜKE 82,0 

ZO DIM В%(12),КФ(12), ВФ (122, ТФ(12), TTE C122, 8$ (1 
2),D$ (120 ,X8 (12) 

40 GRAPHICS О 

45 BL$z" “SREM 12 SPACES 

50 PRINT BL$(1,8); "LOAN CALCULATOR" 

БО PRINT :РБІМТ : PRINT 

70 PRINT " LOAN AMOUNT ";: INPUT A 

BO GOSUB 750: IF А=0 THEN 70 

90 PRINT :PRINT " INTEREST RATE ";:INPUT R 


100 
PUT 
110 
120 
130 
140 
150 
160 
Ф" š 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
200 
310 


PRINT :PRINT " LENGTH OF LOAN (MONTHS) "i: 
N 

R=ABS (К) : М= ІМТ (N) z MER/1200: PRINT 

GOSUR 650 

Ме (1+M) ^N 

P=AXMKW/ (4-1) 

Р-ІМТ(РЖ100%0.99):Р-«Р/100 

WzPX100:GOSUB 900:PRINT " MONTHLY PAYMENT 
5% 

R$=""SFP=P:PRINT :PRINT 

PRINT " NEXT ACTION: " 

PRINT 

PRINT " 1 — SHOW MONTHLY ANALYSIS" 

PRINT " 2 - OVERRIDE MONTHLY PAYMENT" 
PRINT " 3 - START OVER" 

PRINT " 4 — END" 

PRINT :INPUT C 

IF C41 OR C54 THEN 270 

ON C GOTO 520,500,40,290 

PRINT " CHOICES ARE 1, 2. 3, AND 4" 

GOTO 180 

POKE 82,2:END 

PRINT :PRINT " MONTHLY PAYMENT ";:1NPUT F 
GOTO 170 

GOSUB 330:60TO 270 

GOSUB 630: IF R$z"T" THEN RETURN 

POSITION 7,PEEK(84):PRINT "REMAINING"; 


IN 


IS 


POSITION 21,РЕЕК (84) :РКІМТ "-----ІМТЕБЕ8Т--- 


PRINT "MONTH BALANCE" ; 


POSITION 22,РЕЕК (84): РКІМТ “MONTH TO-DAT 


RETURN 

BzAK100:TT-2O: TP=TT: LeTT:P=Pk100:R$="" 
FOR J=1 TO N 

T-MX*B 

TSINT (T+0.5) 

IF J=N THEN P=B+T 
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420 TP=TP+P:B=B-P+T: TT=TT+T 

430 IF B<O THEN GOSUB 790 

440 IF R$z"T" THEN 560 

450 W=B:GOSUB 670: BS=S$ 

460 W=T:GOSUE 670: TS=S% 

470 W=TT:GOSUB 670: TT$=S$ 

480 PRINT " "3J;:POSITION 6, PEEK (84) 

482 PRINT B$;:POSITION 17,PEEK (84) 

484 PRINT T#;:POSITION 29, PEEK (84) 

486 PRINT TT$ 

490 IF B=0 THEN J=N: GOTO 510 

500 L=L+1:IF 1516 THEN 560 

510 PRINT :PRINT " PRESS 'T' FÜR TOTALS, OR" 

t/200 PRINT " ANY OTHER KEY FOR NEXT SCREEN"; 

530 GET #1, XX 

540 IF XX=84 THEN R$="T" 

S50 LzO0:GOSUE Z3o:IF RSz"T" THEN PRINT :PRINT " 

CALCULATING TOTALS..." 

560 NEXT J 

70 W=F:GOSUB 900:PRINT :PRINT :РКІМТ " LAST FAY 

MENT = $", 

S80 WzTF:GOSUB 900:FRINT :PRINT " TOTAL FAYMENTS 
= "sp 

590 WsFPX100:GOSUB 9O00:PRINT :PRINT " MONTHLY РА 

YMENT = $"s:S%:PRINT 

600 PRINT :FRINT " PRESS ANY KEY TO CONTINUE" 

610 GET #1, 2X 

&20 P-FP:GOTO 170 

630 PRINT СНЕФ (125) 

540 W=Rk100:GOSUB 900:PRINT " Ф":А;" FOR "iN;" M 

ONTHS AT "S$; "и" 

&EO PRINT 

660 RETURN 

870 W=INT(W) 

6580 X$=$$:S$="": S$=STRS(W/100) : IF (ІМТ (W/100)) X1 

OO=W THEN ЭФ (LEN (S#)+1)=".00":GOTO 690 

£85 IF (INT(W/10))*10=W THEN S$(LEN(S$)41)z"O" 

690 K=LEN(S%):IF K>9 THEN RETURN 

700 X$=S$:S$=""2S$(1, 10-K) =BL$ (1, 10-K) 1S (LEN(S$ 

)*1, 10) =X: RETURN 

710 ЮФ (1,1) =". ":D$ (2,32 28$ (K-2,K) 

720 X$z8$:85(1,LEN(OS$ (L,K-2)) ) = XH CL, K-2) rs (LEN C 

X$(1,K-2) +1, LEN(X$ (1, K-2))+LEN (D$) ) D$ 

730 X$=5$:S$(1, 10) = ВФ (1, 10) 29% (10, 9+LEN (CX) ) SX 

740 RETURN 

750 A=ABS (А) : А=ІМТ (A) 

760 IF А<1000000 THEN RETURN 

770 PRINT "ЖЖЖЖ TOO LARGE Жжжж" 

780 А=0: КЕТОКМ 

790 Р=Р+В: ТР=ТР+В: B=0 

БОО RETURN 


LOAN 41 


900 WzINT (D 

910 S$=STRS(W/100) IF (INT(W/100))*100-W THEN 5% 
(LEN (S$) +1) =". OO" z RETURN 

720 IF (INT(W/10))*10zW THEN S#(LEN(S$)+1)="0" 
930 RETURN 


EASY CHANGES 


1. The number of lines of data that are displayed on each screen when 
getting a monthly analysis can be changed by altering the constant 
16 in statement 500. 

2. To include the monthly payment in the heading at the top of each 
screen of the monthly analysis, insert the following line: 


645 IF FP < >0 THEN PRINT “MONTHLY PAYMENT =”;FP 


MAIN ROUTINES 


10-100 Defines arrays. Displays title. Gets loan information. 

110-160 Calculates and displays monthly payment. 

170-280 Asks for next action. Goes to corresponding routine. 

300-310 Gets override for monthly payment. 

320-620 Calculates and displays monthly analysis. 

630-660 Subroutine to clear screen and display data about the loan 
at the top. 

670-740 Subroutine to convert integer amount to fixed-length 
string with aligned decimal point. 

750-780 Edits loan amount (size and whole dollar). 

790-800 Subroutine to handle early payoff of loan. 

900-930 Subroutine to convert integer amount to a string with two 
decimal places. 


MAIN VARIABLES 


Amount of loan. 

Interest rate (percentage). 

Length of loan (number of months). 
Monthly interest rate (not percentage). 
Work variable. 

Monthly payment (times 100). 

First monthly payment. 

Choice of next action. 


OmvzgZzu» 
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B$ 
T$ 
TT$ 
S$,X 


Remaining balance of loan (times 100). 
Total interest to date (times 100). 
Total payments to date. 

Number of lines of data on screen. 
Reply from operator at keyboard. 
Work variable for loops. 

Monthly interest. 

String format of B. 

String format of T. 

String format of TT. 

Work strings. 


D$, BL$ Work strings. 
K, XX, Work variables. 


ZX 


SUGGESTED PROJECTS 


1. Display a more comprehensive analysis of the loan along with the 
final totals. Show the ratio of total payments to the amount of the 
loan (TP divided by A), for example. 

2. Modify the program to show an analysis of resulting monthly 
payments for a range of interest rates and/or loan lengths near 
those provided by the operator. For example, if an interest rate of 
9.5 percent was entered, display the monthly payments for 8.5, 
9.0, 9.5, 10.0, and 10.5 percent. 


MILEAGE 


PURPOSE 


For many of us, automobile operating efficiency is a continual 
concern. This program can help by keeping track of gasoline con- 
sumption, miles driven, and fuel mileage for a motor vehicle. DATA 
statements are used to hold the vehicle's “data file." Thus a master file 
can be retained and updated by merely resaving the program after 
adding new information. The program computes mileage (miles per 
gallon or MPG) obtained after each gasoline fill-up. A running log of 
all information is maintained, allowing trends in vehicle operating 
efficiency to be easily checked. 


HOW TO USE IT 


Before running the program, you must enter a chronological his- 
tory of your vehicle’s gasoline consumption. This is accomplished by 
the use of DATA statements beginning at line 1000. For each gas- 
oline fill-up, a record of the date, odometer reading, and number of 
gallons purchased is needed. 

The form of each DATA statement should be: 


line number DATA date, odometer value, number of gallons. 


Some comments are in order here: the line number of each state- 
ment should increase as the information becomes more recent. We 
recommend starting with line number 1000 and incrementing each 
new line by five or ten. This allows later insertion to correct mistakes 
or to add previously missing data. The word DATA must be typed 
exactly as is. 
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The remainder of each DATA line contains the three pieces of 
information needed by the program. They must be separated by 
commas. The first item is the date of the gasoline fill-up. It can be 
comprised of any keyboard characters but should not contain com- 
mas, colons, or quotation marks. Only the leftmost eight characters 
will be used if more than eight are entered. We recommend that you 
use the general form typified by 12/25/83. However, you might want 
to use other notations, such as JAN 23, or WEEK 5 or something 
else. A comma must be typed after the date. The odometer reading 
and number of gallons purchased are then entered as numeric values 
separated by a comma. (See the Sample Run for an example of 
typical data entry.) 

If you do not know part of the information for a particular DATA 
line you can do one of two things: make your best guess for the 
unknown item(s) or leave the entry for the unknown item(s) null. You 
can leave a null entry as follows: for an unknown date, place a 
comma as the first nonblank character after DATA; for an unknown 
odometer reading, or gallons value, simply enter zero. The program 
will recognize these special input forms. However, in all cases, each 
DATA statement that you enter must contain precisely two commas. 

Once your data is entered, you can retain it by saving the program 
on cassette tape or disk. Then, as new data becomes available, you 
can load the old program, add the new data to it, and save the 
program again to preserve the entire data file. 

Having entered the appropriate data, you are ready to run the 
program. It operates from a central command mode. The operator 
branches to one of three available subroutines. When a subroutine 
completes execution, control returns to the command mode for addi- 
tional requests. A brief description of each subroutine now follows. 


Verify DATA Statements 


This scans the DATA statements to look for possible problems 
with the data. It will test to see if any odometer values are too big or 
too small (they are presumed to be between 0 and 999999), or if any 
gallons values are too big or too small (they are presumed to be 
between 0 and 9999). It will look to see that the odometer values 
increase with each successive entry. Also, it will make sure that you 
have entered some data. If any of these problems are found, an 
appropriate error message will be displayed. If a bad data record is 
found (usually more or less than three items on a DATA line, or 
perhaps a string value for one of the numeric quantities), the program 
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will display an error message and terminate. If this happens, check 
all your DATA statements to be sure they are in the correct format. If 
all data is in the correct form the subroutine will display the begin- 
ning and ending dates for the data and the total number of data 
records found. It will then ask that you hit any key to re-enter the 
command mode. 


Display Mileage information 


This subroutine computes mileage (miles per gallon) from the 
available data. It formats all information and displays it in tabular 
form. Numbers are rounded to the nearest tenth so that four columns 
of information can be displayed on one line. When data fills the 
screen, the user is prompted to hit any key to continue the listing. 
When all data is displayed, pressing any key will re-enter command 
mode. An error message will be printed and the program will termi- 
nate if a fatal error is found in the DATA records. 


Terminate Program 


This subroutine ends program execution and returns the computer 
to direct BASIC. 


SAMPLE RUN 


The operator enters DATA information about his or her car, and then 
types RUN to start the program. 
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MILEAGE 


соммамо> 
1 - VERIFY DATA STATEMENTS 
- DISPLAY MILEAGE INFORMATION 


35 - TERMINATE PROGRAM 


ENTER COMMAND BY NUMBER 719) 


The program’s menu is displayed and the operator chooses option 1. This 
requests the program to scan the DATA statements for possible errors. 


сата FILE DISPOSITION 


ТАТЕ OF FIRST DATA RECORD: 37 
CATE OF LAST DATA RECORD: 1 


DATA RECORDS FOUND 


5 
ALL DATA PROCESSED 
HIT амт KEY TO RESUME COMMAND MODE 


All is okay with the data. The dates of the first and last DATA statements 
are shown along with the total number entered. 
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Later, the operator chooses option 2. This displays the data along with 
the fuel MPG obtained. The program will re-enter the command menu 
when a key is hit. 


PROGRAM LISTING 


10 REM MILEAGE 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 

110 DIM à$ C200,C$C1) 

200 GRAFHICS O:FOKE 82,2: TRAP 200 

210 PRINT :POSITION 16,PEER (84) :FRINT "MILEAGE" 
220 PRINT :PRINT "COMMANDS" 

220 PRINT " 1 ~ VERIFY DATA STATEMENTS" 

240 PRINT " 2 — DISFLAY MILEAGE INFORMATION" 
250 PRINT " 3 ~ TERMINATE PROGRAM" 

260 ЕКІМТ :РКІМТ "ENTER COMMAND BY NUMBER "3: INF 
ит СФ 

270 IF Сже>"1" AND C$z^2"2" AND C$z5"z" THEN 200 
280 C=VAL CC) 20N C. GOTO 300,700,290 

290 РОКЕ 764,255:ҒОКЕ 752,0: END 

300 GRAPHICS O:REGTORE 

510 PRINT "DATA FILE DISPOSITION":FRINT 

320 N=0:DD=- 1. 08-038 

220 TRAF 500 

340 READ A$, р, 6 

250 N=N+1 

360 IF N=1 THEN FRINT "DATE OF FIRST DATA RECORD 
GE: 
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370 IF ВочО AND 0<=999999 THEN 400 

380 PRINT "--BAD ODOMETER VALUE ОҒ "3D 
290 PRINT " AT DATE: “; АФ 

400 IF D>DD THEN 440 


410 PRINT "--INCONSISTENT ODOMETER VALUES" 

420 PRINT " ODO READS ";D:i" AT DATE: "АФ 

450 PRINT " YET READS ";DD;" AT FREVIOUS DATE" 
440 IF б>чо AND 65<-9999 THEN 470 

450 PRINT "--BAD GALLONS VALUE OF ":G 

460 PRINT " DETECTED AT DATE: "; АФ 


470 DD=D:G0TO 550 

SOO LN-PEEK (187) x 256 *PEEK C186) 
$10 ЕС=ҒЕЕК (195) 

520 IF &C=3 THEN 560 

S30 IF EC=6 THEN 590 


540 PRINT :РКІМТ "--ERROR # ";ЕС;" HAS BEEN DETE 
CTED" 

S50 PRINT " AT LINE "ИМ 

659 PRINT : GOTO 580 

560 PRINT : PRINT "--БАр DATA RECORD DETECTED" 
570 PRINT " АТ ОК BEFORE LINE "sLN 

$80 PRINT " PROGRAM ABORTED":GOTO 290 


590 IF МО THEN 620 

600 PRINT :PRINT "--NO DATA FOUND" 

610 GOTO 580 

620 IF C=2 THEN 650 

630 PRINT "DATE OF LAST DATA RECORD: "АФ 

640 FRINT : PRINT М;" DATA RECORDS FOUND" 

650 PRINT :PRINT "ALL DATA PROCESSED" 

660 FRINT "HIT ANY KEY TO RESUME COMMAND МОРЕ"; : 
POKE 764,295 

665 IF PEEK(764) 2255 THEN 665 

670 POKE 764, 255: TRAP боо: БОТО 200 

700 GOSUB 820:RESTORE :DD--1:N-O 

710 TRAP 900 

720 READ 0$.D,G: NN*t1: IF LEN(A$) 78 THEN АФ=АФ (1, 
8) 

750 R=D:GOSUB 860:D=R:LD=18—-L:IF INT(D)-D THEN L 
DzLD-2 

740 К=6: 60508 910:G-R:LG-27-L: IF INT(G)=G THEN L 
(5z1.(5—2 

750 IF DD<O ОК G-O THEN M=0:GOTO 770 

760 М= 00-00) /G 

770 R=M:GOSUB 960: M-R:LM-zZ8-L: IF INT(M)=M THEN L 
Мезі.М--2 

780 DD=D:G0SUB 790:GOTO 710 

790 Рк-РЕЕК (84) PRINT A®;:POSITION LD,FEK:P"RINT D 
3: FÜSITION L.G. FFE: 

795 PRINT б: :РОЗІТІОМ LM,PE:PRINT M 

BOO Kzk*1:IF KZ20 THEN RETURN 

810 PRINT :PRINT "HIT ANY KEY ТО CONTINUE" s ;F'Ok:E 


764,255 
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815 IF РЕЕК (754) «255 THEN 815 

B20 PIKE 764,0: GRaPHICG 0 

&30 PRINT "DATE ODOMETER GALLONS MPG" 

840 Ко 

B50 RETURN 

B60 IF К>=0 AND Ri=999999 THEN 890 

870 PRINT :PRINT "ERROR ІМ GALLONS DATA AT DATE: 
" i A$ 

вво GOTO 290 

E90 R=RKL0+0. 5: R=INT (К) /10 

900 L=LEN CSTR CR) ) s RETURN 

910 IF Кочо AND RZz-9999 THEN 940 

920 PRINT :PRINT "ERROR IN GALLONS DATA AT DATE: 
" Н AS 

930 GOUTO 290 

940 R-RK10-0.5:R2INT(R)/10 

950 L=LEN ТКФ (C) ) : RETURN 

200 IF R«O ОК К>9999 THEN КО 

370 R=RkKL0+0. 5:ReINT CR) /10 

980 L=LEN(STRS (К) ) : RETURN 


EASY CHANGES 


1. If you would like to give a name to the data file and have that name 
print out with the command mode, change lines 110 and 210 and 
add line 205 as follows: 


110 DIM А%(20),В%(20),С%(1) 
205 LET B$=“VOLVO 1983" 
210 PRINT "MILEAGE FOR:";B$ 


Just set B$ in line 205 to whatever file name you wish to use. 

2. This program uses ATARI BASIC TRAP statements to detect 
certain expected errors. Should an unexpected one occur, the pro- 
gram may abort after printing out a message like: 


-- ERROR #8 HAS BEEN DETECTED AT LINE 340 


These error numbers and their meanings can be found in your 
ATARI manual with the explanation of the TRAP statement. 
Should you get one and not understand what has happened, re-run 
the program after making the following changes in order to get 
normal BASIC error messages: 


200 GRAPHICS 0:POKE 82,2 
330 REM 
710 REM 
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MAIN ROUTINES 


110 Dimension arrays. 
200- 280 Command mode. Displays available subroutines and 
branches to the operator's choice. 
290 Subroutine to terminate execution. 
300- 470 Subroutine to verify DATA statements. 
500- 670 Processes errors in reading DATA statements. 
700- 780 Subroutine to display mileage information. 
790- 850 Subroutine to print results. 
860- 900 Subroutine to round odometer values. 
910- 950 Subroutine to round gallons values. 
960- 980 Subroutine to round mileage values. 
1000- User-created DATA statements. 
MAIN VARIABLES 
С Command flag (1=verify DATA, 2=display mileage, 
3 =terminate execution). 
N Number of data records read. 
A$ Date of current data record. 
C$ User reply string. 
DD Previous odometer value 
D Current odometer value. 
G Current gallons value. 
M Current MPG value. 
PK Current print row. 
LD Print position for odometer value. 
LG Print position for gallons value. 
LM Print position for mileage value. 
L Length of string. 
R Pre-rounded numbers. 
K Number of lines printed since screen cleared 
EC Error code. 
LN Line number of detected error. 
SUGGESTED PROJECTS 


1. Calculate and print the average MPG over the whole data file. This 
will be the total miles driven divided by the total gallons pur- 
chased. The total miles driven is the difference between the 
odometer values of the last and first DATA statements. The total 
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gallons used is the sum of all the gallons values from the second 
DATA statement to the last DATA statement. 

2. Add an option to do statistical calculations over a given subset of 
the data. The operator inputs a beginning and ending date. He is 
then shown things like average MPG, total miles driven, total 
gallons purchased, etc., all computed over the range requested. 

3. Write a subroutine to graphically display MPG. A bar graph might 
work well. 

4. Add a new parameter in each data record —the cost of each fill-up. 
Then compute things like the total cost of gasoline, miles/dollar, 
etc. 
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STOP 


PURPOSE AND DISCUSSION 


If you are only using your ATARI for making calculations or other 
“normal” work, you are missing out on something. The ATARI has а 
very accurate internal timer, which can be very useful. This program 
uses it in a very obvious way —as a stopwatch. Using a computer as a 
stopwatch gives you the advantage of leaving the last timing on the 
screen for reference while you are making the next timing. Of course, 
the computer is “smart” enough to allow you to get “lap” times as 
well as the final time. 


HOW TO USE IT 


The opening messages from the program show you your three 
options. Pressing the S key causes the stopwatch to start (or restart, if 
you already started it). Pressing the F key causes the stopwatch 
program to show you the time since the S key was pressed. Pressing 
the F key a second time causes the program to show you both the time 
since the start and the time since the last F was pressed. This lets you 
see interim or “lap” times. Pressing the Q key terminates the 
program. 

For example, suppose you want to time a one-mile race that is run 
as four laps around a quarter-mile track. Before the race begins, start 
the program running with the RUN command. When the starting gun 
is fired to start the race, press the S key. At the end of the first lap 
around the track, press the F key. This causes the program to show 
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the time since the race started. When the second lap is completed, 
press the F key again. The program will show the time since the start 
and the time of the second lap. Press the F key again when the third 
and fourth laps are finished to get the time since start and lap times. 
Of course, the time since start at the end of the fourth lap is the final 
time of the race, even though the stopwatch keeps running. At that 
time, you can either press S to restart the stopwatch (when the next 
race begins) or press the BREAK or Q key to stop the program. 

The internal timer of the ATARI is accurate to one sixtieth (1/60) 
of a second. The program displays the time as though it is accurate to 
0.01 second. As a result, the second decimal place is not precise. The 
actual time is within plus or minus 0.02 second of the time that is 
shown. Also, because of the computation time required to display 
each timing, wait at least 0.5 second between consecutive F 
suppressions. 


SAMPLE RUN 


STOPWATCH 


OR RESTART 


4 


ЗІМСЕ START = 


First the operator presses “S” to start the stopwatch. Then, after 1 
minute, 13.80 seconds, he or she presses ^F". 
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PROGRAM LISTING 


10 REM STOF 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 

100 REM А STOPWATCH PROGRAM 

110 GRAPHICS O 

120 POKE 752,1 

130 POSITION 12,2:PRINT "ЅТОРМАТСН" : РКІМТ 
140 PRINT "S = START OR RESTART" 

150 PRINT "F = LAP OR STOP" 

160 PRINT "Q = QUIT" 

170 PRINT 

180 POSITION 2,9:PRINT "? "i:POKE 764,255 
190 KzPEEK(764):1F Kz255 THEN 190 

200 A=PEEK (20) : B=PEEK (19) : С=РЕЕК (18) 

210 IF K<262 THEN 260 

220 51=0:РОКЕ 18,51:РОКЕ 19,S1:POKE 20,81:РКІМТ 


nce 


god 


250 POSITION 16,10:FRINT "00:00:00" 

240 POSITION 2,11:PRINT " " 
:КЕМ 22 SPACES 

250 GOTO 180 

260 IF K=56 THEN PRINT "F'":GOSUB 290:60Т0 180 
270 IF K=47 THEN POSITION 2,12:POKE 764, 259: FOKE 
792,0: END 

280 GOTO 180 

290 S=A+ (BK256) + (CkK4096) 

300 POSITION 2,10:PRINT "SINCE START = '; 

$10 T=S:GOSUB 570 

320 IF 51=0 THEN 350 

2350 POSITION 2,11:PRINT "SINCE LAST = "; 

340 T=$-S1:G60SUB 370 

250 51=5 

360 RETURN 

$70 M=INT (T/3600) 

380 N=INT (T/60) -60XM 

590 P=INT(T/0. 6) —100* (N+60%M) 

400 K=M:GOSUB 440:PRINT "s"; 

410 K=N:GOSUB 440:PRINT ":"; 

420 K=P:G0SUB 440 

430 RETURN 

440 IF К<10 THEN РКІМТ CHR$(48); 

450 PRINT K;:RETURN 


EASY CHANGES 


1. To allow any key to act like an F (except S or Q), change line 260 
to read 
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260 IF K < >47 THEN GOSUB 290:GOTO 180 


2. To display the time to the nearest tenth of a second (instead of the 
nearest hundredth), change lines 390 and 420 to: 


390 P 2 INT (T/6) — 10x (N 4- 60:k M) 
420 PRINT P; 


MAIN ROUTINES 


10-170 
180-190 
200-210 


220-280 
290-360 
370-450 


Displays the title and three options. 

Displays question mark and waits for a key to be pressed. 
Saves time of key suppression. Checks which key was 
pressed. 

Saves starting time and displays start clock. 

Displays total and lap times. 

Subroutines to convert system ticks into minutes, seconds, 
and hundredths and display them. 


MAIN VARIABLES 


S1 

S 

K 
A,B,C 
T 
M,N,P 


Time that last S or F was pressed. 

Current time value. 

Key pressed by operator; work variable. 

System real time clock counter readings. 

Time mark variable. 

Minutes, seconds, and hundredths work variables. 


SUGGESTED PROJECTS 


1. Instead of displaying only the last lap time, display the last two or 
three lap times. Or, display all lap times since the start by saving 
each time in an array. Allow for at least twenty entries. 


Section 2 


Educational Programs 


INTRODUCTION TO EDUCATIONAL PROGRAMS 


Education is one area where computers are certain to have more 
and more impact. Though a computer cannot completely replace a 
human teacher, the machine does have certain advantages. It is ready 
anytime you are, allows you to go at your own pace, handles rote drill 
effortlessly, and is devoid of any personality conflicts. 

With a good software library, the ATARI can be a valuable learn- 
ing center in the school or at home. Here are six programs to get you 
started. 

Mathematics is certainly a "natural" subject for computers. 
NUMBERS is designed for pre-school children. While familiarizing 
youngsters with computers, it provides an entertaining way for them 
to learn numbers and elementary counting. MATH is aimed at older, 
grade school students. It provides drill in various kinds of math 
problems. The child can adjust the difficulty factors, allowing the 
program to be useful for several years. 

The ATARI is by no means restricted to mathematical disciplines. 
We include two programs designed to improve your word skills. 
VOCAB will help you expand your vocabulary. TACHIST turns the 
ATARI into a reading clinic, helping you to improve your reading 
speed. 

Do you have trouble familiarizing yourself with the increasingly 
prevalent metric system? METRIC is the answer. 

Need help learning a certain subject? FLASH allows you to create 
your own "computer flashcards." Then you can drill yourself until 
you get it right. 
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MATH 


PURPOSE 


MATH provides mathematics drills for grade school children. The 
student can request problems in addition, subtraction, or multiplica- 
tion from the program. Also, he or she may ask that the problems be 
easy, medium, or hard. The program should be useful to a child over 
an extended period of time. He can progress naturally to a harder 
category of problems when he begins to regularly perform well at 
one level. The difficulty and types of problems encompass those 
normally encountered by school children between the ages of six and 
ten. 

The problems are constructed randomly within the constraints 
imposed by the degree of difficulty selected. This gives the student 
fresh practice each time the program is used. After entering answers, 
he is told whether he was right or wrong. The correct answers are 
also displayed. 


HOW TO USEIT 


To begin, the student must indicate what type of problem he wishes 
to do. The program requests an input of 1, 2, or 3 to indicate 
addition, subtraction, or multiplication, respectively. It then asks 
whether easy, medium, or hard problems are desired. Again an input 
of 1, 2, or 3 is required. 

Now the screen will clear and five problems of the desired type 
will be displayed. The user now begins to enter his answers to each 
problem. 
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A question mark is used to prompt the user for each digit of the 
answer, one digit at a time. This is done moving right to left, the way 
arithmetic problems are naturally solved. 

To start each problem, the question mark will appear in the spot for 
the rightmost (or units column) digit of the answer. When the key for 
a digit from 0-9 is pressed, that digit will replace the question mark 
on the screen. The question mark moves to the immediate left waiting 
for a digit for the "tens" column. 

Digits are entered in this right-to-left manner until the complete 
answer has been input. Then the RETURN must be pressed. This 
will end the answer to the current problem and move the question 
mark to begin the answer for the next question. 

If the RETURN key is pressed to begin a problem, an answer of 
zero is assumed intended. No problems created by this program have 
answers of more than three digits. If a four-digit answer is given, the 
program will accept the answer, but then go immediately to the next 
problem. Answers to the problems are never negative. 

The program will display the correct answers to the five problems 
on the screen after the student has entered his five answers. The 
message “RIGHT!” or “WRONG!” will also be displayed below each 
problem. 

Then the message “PRESS ANY KEY TO CONTINUE?” will be 
displayed. After the key is pressed, a new set of five problems of the 
same type will be presented. 

This continues until twenty problems have been worked. Before 
ending, the program shows what the student's performance has been. 
This is expressed as the number of problems solved correctly and 
also as the percentage of problems solved correctly. 
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SAMPLE RUN 


НЕ THAOM E SF eb eg 


TYPE OF PROBLEM SHALL WE DO? 


- ADDITION 
- 53UBTRACTIONM 
- MULTIPLICATION 


WHICH ТҮРЕ (1, 2, OR 3271 


WHAT KIND SHALL WE DO 
- EASY PROBLEMS 
- MEDIUM PROBLEMS 
- HARD PROBLEMS 


KIND (1, 2, ОН 3373 


The operator chooses to do hard addition problems. 


The initial set of five problems is presented. With a question mark, the 
program prompts the operator for the answer to the first problem. 
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The operator has entered his or her five answers. The program displays 
the correct answers and indicates whether or not each problem was 
solved correctly. The program waits for the operator to press any key in 
order to continue with the next set of five problems. 


PROGRAM LISTING 


10 REM MATH 

15 REM COFYRIGHT 1984 DILITHIUM FRESS 

20 GRAPHICS О:РОКЕ 752,1:0PEN #1,4,0,"Ks" 

$O ND=O 

40 DIM ACS), BCS) ,0(S),6(5) ,RE(10) , FS (10) 

S0 N20 

60 GOSUB 540 

70 ЕКІМТ :РКІМТ :РКІМТ "WHAT ТҮРЕ OF FROBLEM SHA 
Li. WE DO?" s PRINT 


BO FRINT " і - ADDITION" 
90 PRINT " 2 ~ SUBTRACTION" 
100 PRINT " 3 - MULTIFLICATION" 


110 PRINT :FRINT "WHICH TYPE (1, 2, OR S)"s: INFU 
T R$ 

120 IF R$-"1" OR R$z"2" OR RK$z"Z" THEN 130 

125 GOTO 110 

150 T=VAL (КФ) :РКІМТ :FOR J=1 TO Z6:FRINT CHR$(18 
):: NEXT J 

140 PRINT :РКІМТ : PRINT “WHAT KIND SHALL WE DO" 


150 PRINT : PRINT " 1 ~ EASY PROBLEMS" 
160 PRINT " 2 — MEDIUM PROBLEMS" 
170 PRINT " 3 - HARD PROBLEMS" 
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180 PRINT :PRINT "ИНАТ KIND (1, 2, OR 22)"; : INFUT 


190 IF R$z"1" QR КФ= "2" OR R$-"3" THEN 200 

195 GOTO 180 

тоо D=VAL (R$) 

210 ON D GOTO 220, 2350, 250 

220 GOSUB 570: 6050Е 550:GOSUBR 560:60Т70 260 

230 GOSUB 570:GOSUB 560: IF T=3 THEN GOSUB 590:60 
SUB 550:GO0TO 260 І 

240 IF Т<>5 THEN GOSUB 580: 60508 550: 60Т0 260 
250 GÜSUB 580: 60508 550: 60308 56О:ІҒ T=3 THEN 60 
SUR 570: GOSUB 560 

260 IF T£22 THEN 300 

270 FOR J=1 TO 5 

280 IF B((J)2C(J) THEN R=C(J):C (J)=R(J):B(J)=R 
290 NEXT J 

200 GOSUB 500: GO0SUB 540 

310 FOR Әлі TO S:X=(J—-1) *8+2: Y=6:60SUB 640: NEXT 


$20 FOR K=1 TO S:X-«(K-1)X8-5:Y-10: GOSUB 440: GCR) 
=N:NEXT K 

Ж5О Х=17:Ү=19: 6080В 720:PRINT " ANSWERS" 

3540 FOR 21 TO S:X=(J-1) *8+2: Y=18:GOSUB 760:NEXT 
J 

250 Y=20:FOR J=1 TO S:X=(J-1) *8+2:GOSUB 720 

360 IF А(99<>5(2) THEN PRINT "WRONG! ";:GOTO 380 
270 PRINT "RIGHT! "sNR=NR+1 

ЗВО NEXT J 

590 PRINT :PRINT "PRESS ANY KEY TO CONTINUE": :CL 
OSE #1: OPEN #1,4,0,"Ks"sGET #1,RX 

400 ND=ND+5 

410 IF ND<NP THEN GOSUB 540:GOTO 210 

420 GOSUB BOH 

430 POKE 752,0:END 

440 NzO:M-1 

"50 P$z"?":GOSUB 550 

460 GET #1,A 

470 IF A-155 AND М=1 THEN P$z"O":GOSUB S30: RETUR 
N 

480 IF A=155 THEN P$-CHR$UCS2): GOSUB 550: RETURN 
490 IF А<48 OR A557 THEN 460 

S00 V-24-48:F$-CHRf$(A):GOSUB 550: NxN*-MXV: M-MX10 
510 IF М>1000 THEN RETURN 

S20 X=X-1:GOTO 450 

S30 POSITION X,V:FRINT F$::POSITION 22, У: RETURN 

540 PRINT СНКФ (125) :POSITION 10,РЕЕК (84) PRINT " 

AR ITHMET I C":RETURN 

550 FOR К=1 TO S:C (kK) =INTCRND (1) X GA-L120) +L: NEXT 
E: RETURN 

$60 FOR K=1 TO 3S: 8(K)=INTCRND(1) X CH-L 12) £L: NEXT 
Ks RETURN 
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570 Hz9:L:O: RETURN 

SEO Hz99:L 30: RETURN 

$90 Hz29:1.-1: RETURN 

600 ON T GOTO 610,620,650 

610 FOR J=} TO S:A(QD-zRBGD--COPLD:NEXT J:RETURN 

620 FOR 4-1 TO S:46J) 2(J) -BHCJ) NEXT J: RETURN 

650 FOR J=1 TO S:A(J)=C¢(d) KBOD:NEXT J:RETURN 

640 GOSUB 720: YzY-1: PRINT CHR C32) CHRE C32) 3 

650 IF С(Ј) <10 THEN FRINT CHR$ (32); 

660 PRINT €(03):G0SUB 720:YzY-1:IF T=} THEN PRINT 
"+". 

670 IF T=2 THEN PRINT "-": 

680 IF T=3 THEN PRINT "X"; 

690 PRINT CHR$OS2)::IF B(J)210 THEN FRINT CHR$ (3 

29: 

700 PRINT R4J):GOSUB 720:ҒОК Kzi TO 4:FRINT CHR$ 
(18); 

710 NEXT K: RETURN 

720 POSITION X,Y 

750 RETURN 

760 GOSUB 720: IF А(22<10 THEN PRINT CHR (22) СНК 

(32) СНК (32); s GOTO 790 

770 IF AGDZ100 THEN PRINT СНКФ (52) ss CHRS (22) 3:60 

TO 790 

780 IF АЈ) <1000 THEN PRINT СНКФ (32); 

790 PRINT ACI): RETURN 

ЕОО GOSUR 540:РКІМТ :FRINT 

810 PRINT "YOU GOT "ҰМЫ; RIGHT" 

E20 PRINT "OUT OF ":iNP;" FROBLEMS" 

B30 F=NR/NP* LOO 

ЕДО PRINT :FRINT "THAT'S "iF" PERCENT CORRECT": 

RETURN 


EASY CHANGES 


1. The program currently does twenty problems per session. You can 
change this number by altering the variable NP in line 50. For 
example, 


50 NP=10 


will cause the program to do only ten problems per session. The 
value of NP should be kept a positive multiple of five. 

2. Zero is currently allowed as a possible problem operand. If you do 
not wish to allow this, change lines 570 and 580 to read as follows: 


570 H=9:L=1:RETURN 
580 H=99:L=1:RETURN 
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MAIN ROUTINES 
20- 60  Initializes constants, displays header. 


70-195 Asks operator for type of problems desired. 
200-300 Sets A, B, C arrays, clears screen. 
310-430 Mainline routine — displays problems, gets operator's an- 
swers, displays correct answers and user's performance. 
440-520 Subroutine to get and display user's answers. 
530 Character-printing subroutine. 
540 Subroutine to clear screen and display title. 
550-560 Subroutine to set B, C arrays. 
570-590  Subroutine to set L, H. 
600-630 Subroutine to calculate A array from B, C arrays. 
640-710 Subroutine to display problems. 
720-730 Subroutine to move cursor to screen position X, Y. 
760-790 Subroutine to display the correct answers. 
800-840 Subroutine to display operators performance. 
MAIN VARIABLES 
NP Number of problems to do in the session. 


JAZ 


yv=K><gzE О 
A 4 c 


Number of problems done. 

Number of correct answers given. 

Arrays of top operand, bottom operand, and correct an- 
swer to each problem. 

Operator's answer to current problem. 

Array of operators answers. 

Type of problems requested (1 addition, 2 —subtraction, 
3 = multiplication). 

Kind of problem requested (1 =еаѕу, 2 = medium, 
3=hard). 

Highest, lowest integers to allow as problem operands. 
Answer column being worked on. 

Operators input character. 

Value of A. 

Input character. 

Horizontal, vertical screen position of cursor. 

Loop indices and work variables. 

Percentage of correct answers. 

Character to be printed. 
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SUGGESTED PROJECTS 


N 


U 


. Keep track of problems missed and repeat them quickly for addi- 


tional practice. 


. No negative operands or answers are currently allowed. Rewrite 


the program generation routines and the operator's answer routines 
to allow the possibility of negative answers. 


. The answers are now restricted to three-digit numbers. However, 


the program would work fine for four-digit numbers if the oper- 
ands of the problems were allowed to be large enough. Dig into the 
routines at lines 200-300 and 570-590. See how they work and 
then modify them to allow possible four-digit answers. 


. The operator cannot currently correct any mistakes he makes 


while typing in his answers. Modify the program to allow him to 
do so. 


. Modify the program to allow problems in division. 


FLASH 


PURPOSE 


There are certain things that the human mind is capable of learning 
only through repetition. Not many people can remember the multi- 
plication tables after their first exposure, for example. The same 
applies to learning the vocabulary of a foreign language, the capital 
cities of the fifty states, or famous dates in history. The best way to 
learn them is to simply review them over and over until you have 
them memorized. 

A common technique for doing this involves the use of flashcards. 
You write one half of the two related pieces of information on one 
side of a card, and the other half on the other side. After creating a set 
of these cards, you can drill yourself on them over and over until you 
always remember what's on the other side of each card. 

But why waste precious natural resources by using cards? Use 
your computer instead. This program lets you create flashcards, drill 
using them, and save them on cassette tape or disk for later review. 


HOW TO USE IT 


As currently written, the program immediately begins drilling you 
on Spanish vocabulary words. After explaining how to use the pro- 
gram with these words, well show you how to enter your own 
flashcards (see Easy Changes). 

The program flashes one side of one card on the screen for you. 
Both are chosen at random-—the side and the card. Your job is to 
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respond with the other side. If you enter it correctly, the program says 
“RIGHT!” If not, it tells you the correct answer. In either event, the 
program continues by picking another side and card at random. This 
goes on until you finally respond by simply pressing the RETURN 
key, which tells the program that you do not want to drill any more. It 
then tells you how many you got right out of the number attempted, as 
well as the percentage, and gives you the option of drilling more or 
ending the program. 

During the drill, the program will not repeat a card that was used 
in the previous four questions. 


SAMPLE RUN 


FLASHCARD PROGRAM 
30 FLASHCARDS 


L ME WHAT IS OM THE OTHER 
Е OF EACH CARD AS I SHOW IT. 


55 RETURN TO SEE PROGRESS REPORT 


SABER 

^TO KNOW 
RIGHT! 
THE STORE 
“a 


In its present form, the program begins by offering 30 flashcards. The 
operator enters a response and pushes RETURN. This continues until 
the operator requests a progress report. 
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мады 


LES THE CORRECT RESPONSE 
HALLAR 


77 KMÜM 


ABER 


SIGHT! 


Later the operator ends the drill and the program shows the number and 
percentage of correctly answered questions. The options for continuing 
are displayed and the program waits for the operator's choice. 


PROGRAM LISTING 


10 REM FLASH 

15 REM COPYRIGHT 1984 DILITHIUM FRESS 

20 GRAPHICS O:FOKE 82,2 

50 Ls50:M-5 

40 DIM F$(40), ВФ (40) , PCM-12 X(L), C$ (A0) P$ (40) FR 
$ (40) 

SO FOR Ј=0 TO M-1:P(GD -O:NEXT J:POSITION 8,2:РКІ 
NT "FLASHCARD PROGRAM" 

&O PRINT :PRINT 

70 Ksi:CsO:Weo 

BO IF К THEN 120 

90 READ Y:IF Үш-1 THEN 150 

100 X(K)=V 

110 KsK*1:GÜTO BO 

120 PRINT "XX FLASHCARD ARRAY FULL XX":PRINT 

150 К-к-1 

140 IF КЕМ THEN FRINT "ЖЖ МОТ ENOUGH FLASHCARDS 

XX" SEND 

150 PRINT Кі" FLASHCARDS” 

160 PRINT :PRINT 

180 PRINT "TELL ME WHAT IS ON THE OTHER" 

190 PRINT "SIDE OF EACH CARD AS I SHOW IT." 

195 PRINT :PRINT "FRESS RETURN TO SEE PROGRESS R 
EPORT " 
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200 PRINT :РКІМТ 

210 R=INT(KXRND CL) 414 

220 FOR 1-0 TO M-2 

230 IF P(J)sR THEN 210 

240 NEXT J 

250 RESTORE X(R):READ F$:READ BS 
260 J=RND(1):IF J»0.5 THEN 290 
270 PRINT F$:C$-B$ 

280 GOTO 500 

290 PRINT B$:C$-F$ 

300 PRINT :INPUT КФ 

210 IF LEN(R$)=0 THEN 440 

320 PRINT 

X30 IF R$=C% THEN 370 

340 PRINT "NO, THE CORRECT RESPONSE IS:" 
250 PRINT C$ 

360 W=W+1:60TO 390 

570 PRINT "RIGHT!" 

380 C=C+1 

290 FOR J=1 TO M-2 

400 P(G-1)9P(D :NEXT J 

410 P(M-2)=R 

420 PRINT 

450 GOTO 210 

440 PRINT 

450 IF C+W=O THEN 500 

460 PRINT C;" RIGHT QUT OF "Сем 
470 PRINT 

480 PRINT CK100/(C-W);" PERCENT" 
490 PRINT 

500 PRINT "NEXT ACTION:" 

510 PRINT " 1 — DRILL MORE” 

520 PRINT " 2 - END PROGRAM" 

530 PRINT 

540 INPUT R$ 

550 IF R$z"2" THEN END 

560 IF R$-"1" THEN 160 

570 PRINT "Xx ENTER 1 OR 2 PLEASE Xx" 
ЕВО PRINT :GOTO 500 

590 DATA 610, 620, 630, 640, 650, 660, 670, 680, 690, 700 
.710, 720,730,740, 750, 760,770, 780, 790, 800,810,820 
, 830,840 

600 DATA 850,860,870,880,890,900,-1 
610 DATA THE PEN,LA PLUMA 

620 DATA THE DOOR,LA FUERTA 

&30 DATA THE SCHOOL,LA ESCUELA 
540 DATA THE FLOOR,EL SUELO 

650 DATA THE STORE,LA TIENDA 

640 DATA THE HAND,LA MANO 

670 DATA THE HOUSE,LA CASA 

680 DATA THE FRIEND,EL AMIGO 

490 DATA THE DINNER,LA COMIDA 
700 DATA THE CHAIR,LA SILLA 
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710 DATA TO ARRIVE,LLEGAR 
720 DATA TO ASK, PREGUNTAR 
730 DATA TO BUY, COMPRAR 
740 DATA TO BRING, LLEVAR 
750 DATA TO COME, VENIR 
760 DATA TO EAT, COMER 

770 DATA TO FIND, HALLAR 
780 DATA TO GO,ANDAR 

790 DATA TO HAVE, TENER 
BOO DATA TO KNOW, SABER 
810 DATA BLUE,AZUL 

E20 DATA GREEN, VERDE 

BIO DATA RED, ROJO 

840 DATA WHITE, BLANCO 

850 DATA YELLOW, AMARILLO 
B60 DATA ENOUGH, BASTANTE 
870 DATA FAR, LEJOS 

B80 DATA FEW, POCOS 

890 DATA MANY, MUCHOS 

700 DATA NEAR, CERCA 


EASY CHANGES 


1. Replace the DATA statements with your own flashcards. A comma 
is used to separate the two sides of each card. Don’t use commas, 
colons, or quotation marks as part of your cards. The DATA 
statements are to be entered as lines 610 through 900 (or higher, if 
necessary). The earlier DATA statements (590 and 600) must 
contain a list of all the later DATA statements, with a value of 
negative one as the last number. If necessary, more than these two 
lines can be used, but be sure the line numbers used are all in the 
range of 590 to 609. 

2. Change the limits of the number of flashcards that can be entered 
by altering line 30. L is the upper limit and M is the minimum. The 
current upper limit of 50 will fit in an ATARI with 4000 bytes free 
(see Appendix 1) if each side of each flashcard averages no more 
than about twelve to fifteen characters in length. If you have 
16,000 bytes free, you can make L as large as about four hundred 
for flashcards this size. Do not make M much larger than about ten 
or so, or you will slow down the program and use more memory 
than you might want. But, it increases the number of cards drilled 
upon before repeating. Make sure each side of each flashcard is no 
more than 40 characters long. 

3. To cause the program to always display side one of the flashcards 
(and ask you to respond with side two), change this line: 


260 REM 
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To cause it to always display side two, change it this way: 


260 GOTO 290 

MAIN ROUTINES 

10- 70  Initializes variables. Creates arrays. Displays title. 
80-150 Reads flashcards from DATA statements. 

160-490 Drills operator on flashcards in memory. 

500-580 Displays options and analyzes response. Branches to ap- 
propriate routine. 

590-600 DATA statements defining DATA statements containing 
flashcards. 

610-900 DATA statements of the flashcards. 

MAIN VARIABLES 

L Upper limit of number of flashcards that can be entered. 

M Minimum number of flashcards that can be entered. 

R Subscript of random flashcard chosen during drill. 

K Number of flashcards entered. 

W Number of wrong responses. 

C Number of correct responses. 

X Array containing line number of flashcards. 

F$ Array containing front side of flashcard (side 1). 

B$ Array containing back side of flashcard (side 2). 

P Array containing subscripts of M—1 previous flashcards 

during drill. 

J Loop and subscript variable. 

C$ The correct response during drill. 

R$ Response from operator. Also temporary string variable. 

Y Flashcard input index. 

SUGGESTED PROJECTS 


1. Modify the program for use in a classroom environment. Require 
the operator to drill a fixed number of times (maybe 20 or 50). 
Don't allow a null response to end the drill. For example, you 
could make these changes: 


310 REM 
385 IF C=20 THEN 440 
495 END 


This will cause the program to continue until 20 correct answers 
are given, and then end. 


METRIC 


PURPOSE 


In case you don't realize it, we live in a metric world. The United 
States is one of the last holdouts, but that is changing rapidly. So if 
you're still inching along or watching those pounds, it’s time to 
convert. 

METRIC is an instructional program designed to familiarize you 
with the metric system. It operates in a quiz format; the program 
randomly forms questions from its data resources. You are then 
asked to compare two quantities — one in our old English units and 
one in the corresponding metric units. When you are wrong, the 
exact conversion and the rule governing it are given. 

The two quantities to compare are usually within 50% of each 
other. Thus, you are constantly comparing an "English" quantity and 
a metric one which are in the same ball park. This has the effect of 
providing you with some insight by sheer familiarity with the 
questions. 


HOW TO USE IT 


The first thing the program does is ask you how many questions 
you would like to do for the session. Any value of one or higher is 
acceptable. 

The sample run shows how each question is formulated. A quan- 
tity in English units is compared with one in metric units. Either one 
may appear first in the question. Each quantity will have an integral 
value. The relating word (“longer,” “hotter,” “heavier,” etc.) indicates 
what type of quantities are being compared. 
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There are three possible replies to each question. Pressing Y or N 
means that you think the answer is yes or no, respectively. Pressing 
any other key indicates that you have no idea as to the correct answer. 

If you answer the question correctly, you will be duly congratu- 
lated and the program will proceed to the next question. A wrong 
answer or a response of “по idea," however, will generate some 
diagnostic information. The first value used in the question will be 
shown converted to its exact equivalent in the corresponding units. 
Also, the rule governing the situation will be displayed. At the end of 
any question, the program will request that you hit any key to pro- 
ceed to the next question. 

The program will continue generating the requested number of 
questions. Before ending, it will show you how many correct answers 
you gave and your percentage correct. 


SAMPLE RUN 


4 METRIC TUIE 


-сы MANY QUESTIONS SHALL НЕ D0^:8 


The operator requests a three question quiz. 
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we ST EM IX oU 5 


FEET LONGER THAN 
METER; 7 


5o E WES 
"JU'RE RIGHT! - VERY 50996! 


TO) CONTINUE «е 


The first question is correctly answered "yes". The program waits for a 
key to be hit before continuing the quiz. 


а METRIC NuTe 


22: SEY 155 


LOMETERS LONGER THAN 
Es: 


‘MA! BUT YOU'RE WRONG! 


The second question is incorrectly answered “no”. The correct conver- 
sion and governing rule are then displayed. 
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When all three questions have been answered, the program shows the 
number and percentage of correctly answered questions. 


PROGRAM LISTING 


10 REM METRIC 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 

130 GRAPHICS О:РОКЕ 82,2 

150 DIM ES$(30) ,MS$(30) , КФ (30), EF$ (30) , MP$ (ZO) , X 
(30), BS (10) 

160 ВФ=СНКФ (32) 

165 TRAP 880 

170 CLOSE #1:0PEN #1,4,0,"K:" 

200 GÜSUE 400: 50508 450 

210 PRINT "HOW MANY QUESTIONS SHALL МЕ DO";:INPU 

T N@:N@=INT(N@):IF Nüc1 THEN 210 

220 FOR 1-і TO NGO:GOSUB 600:GOSUB 900:NEXT J 

230 GOSUB 450:PRINT "YOU GOT ";NR;" RIGHT OUT OF 
j" NQ: " QUESTIONS":PRINT 

240 P= (INT (LOOOOXKNR/NG@))/LO0:PRINT "PERCENTAGE C 

ORRECT = "ӘР 

250 END 

400 RESTORE :ND=0 

410 ND=ND+1:READ ZZ 

420 IF ZZ--1 THEN NDzND-1:RETURN 

450 X(ND)=ZZ:G0TO 410 

450 PRINT CHR$(125):POSITION 10,PEEK(84):PRINT " 

А METRIC QUIZ" 

460 PRINT :FRINT :RETURN 
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600 N=INT (NDXRND (1) ) +21 

605 RESTORE X(N) :READ ES$,MS$,R$,C, EPS, MPS 

610 FzO:IF RND(L) 20.5 THEN F-1 

620 VI=INT(RND (1) #99) 42: VS=VLkC: IF F=1 THEN V3= 
17€ 

630 IF N=1 THEN VZ-(V1-Z2)/1.8:1F F=1 THEN V3=(V 
1X1.8) +352 

640 У?-У2Ж(0.5%ЕМр(12):У2чІМТ(У2%0.5):Т-О:ІР У2< 
2 THEN T=1 

650 GOSUB 450:PRINT "QUESTION ";J;" OF ";NQ:PRIN 
T 

660 IF F=0 THEN PRINT "IS ";V1;B$;EP$iB$;R$;" TH 

AN":PRINT B$;B%;B%;V2; B$; MPS; BE; "7"; 

670 IF F=1 THEN PRINT "IS ";V1;B$;MP$;B$;R$;" ТН 
AN":PRINT Б%;В%;Б%;У2;БФ;ЕРФ; ВФ: "7": 

&80 GET 41,00 

700 IF 00-89 THEN PRINT :PRINT :PRINT "YOU SAY ° 
YES’ "s:R=1:60TO 730 

710 IF QQ-78 THEN PRINT :PRINT :PRINT "YOU SAY * 
NO? "s:R=0:GOTO 730 

720 PRINT :PRINT :PRINT "YOU HAVE NO IDEA": R=2 
730 X=T-R:IF R=2 THEN GOSUB 800:G0TO 760 

740 IF Х=0 THEN PRINT :PRINT " AND YOU? RE RIGHT 
! = VERY GOOD! ":NR=NR+1:G0TO 760 

750 PRINT " BUT YOU'RE WRONG!":GOSUB 800 

760 RETURN 

BOO PRINT :FOR K=1 TO 36:PRINT CHR$(18);:NEXT K: 
PRINT :PRINT 

Е10 IF Ғ=0 THEN PRINT V1;B$;EP$;" EQUALS":FRINT 
V3; BE; MP 

820 IF Ғ-і THEN PRINT V1;B$;MP$;" EQUALS":PRINT 
V3; B$; EP 

B30 PRINT :PRINT "---- THE RULE IS ----":PRINT 
840 IF Меі AND Е-О THEN PRINT " DEG.C = (DEG.F — 
52) /1. 8": RETURN 

850 IF N=1 AND F=1 THEN PRINT " DEG.F 
1.8) + 32":RETURN 

860 IF F=0 THEN PRINT " 1 ";ES$;" EQUALS":PRINT 
C; B$; МРФ: RETURN 

B70 Q-INT(100000/C)/100000: PRINT " 1 ";MS$;" EQU 

ALS":PRINT 0; Et; ЕРФ: RETURN 

ЕВО IF РЕЕК (195) =8 THEN PRINT :PRINT "XX ILLEGAL 
ENTRY XX":PRINT :TRAP 880: 50Т0 210 

890 END 

ФОО PRINT :PRINT :FRINT "ЖЖЖ HIT ANY KEY TO CONT 
INUE xxx" 

910 GET 81,00 

920 RETURN 

550 DATA 1000,1020,1040,1060,1080,1100,1120,-1 
1000 DATA DEGREE FAHRENHEIT, DEGREE CENTIGRADE,HO 

ТТЕК, 0.5 

1010 DATA DEGREES FAHRENHEIT,DEGREES CENTIGRADE 


(DEG.C Ж 
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1020 


DATA 


R. 1. 60955 


1930 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


MILE PER HOUR, KILOMETER РЕК HOUR,FASTE 


MILES PER HOUR,KILOMETERS PER HOUR 
FOOT, METER, LONGER, 0. 3048 
FEET,METERS 

MILE, KILOMETER, LONGER, 1.60935 
MILES, KILOMETERS 

INCH, CENTIMETER, LONGER, 2.54 
INCHES, CENTIMETERS 
GALLON, LITRE, MORE, 3.78533 
GALLONS, LITRES 

POUND, KILOGRAM, HEAVIER, О. 45359 
POUNDS, KILOGRAMS 


EASY CHANGES 


1.To have the program always ask a fixed number of questions, 
change line 210 to set NQ to the desired value. For example: 


210 NQ=10 


will cause the program to do 10 questions. 
2. There are currently seven conversions built into the program: 


N 


ч ON Q + Q tO — 


Type English Unit Metric Unit 
temperature degrees F. degrees C. 
speed miles/hour kilometers/hour 
length feet meters 

length miles kilometers 
length inches centimeters 
volume gallons liters 

weight pounds kilograms 


If you wish to be quizzed on only one type of question, set N to this 
value in line 600. Thus, 


600 N=4 


will cause the program to only produce questions comparing miles 
and kilometers. To add additional data to the program, see the first 
“Suggested Project.” 

3. You can easily have the questions posed in one “direction” only. To 
go only from English to metric units use 


610 F=0 


while to go from metric to English use 


610 F=1 
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4. You might want the converted value and governing rule to be 
displayed even when the correct answer is given. This is accom- 
plished by changing line 740 and adding line 745 as follows: 


740 IF X =0 THEN PRINT:PRINT "AND YOU'RE 


RIGHT — VERY GOOD" 


745 IF X «0 THEN NR=NR+ 1:GOSUB 800:GOTO 760 


MAIN ROUTINES 


130- 170 Dimensions and initializes variables. 
200- 250 Mainline routine, drives other routines. 
400- 430 Reads and initializes data. 
450- 460 Displays header. 
600- 760 Forms and asks questions. Processes user's reply. 
800- 870 Displays exact conversion and governing rule. 
880- 890 Error trap routine for input errors. 
900- 920 Waits for user to hit any key. 
950 DATA statement defining line numbers of other DATA 
statements. 
1000-1130 DATA statements. 
MAIN VARIABLES 
ND Number of conversions in the data. 
ES$, EP$ String arrays of English units names (singular, plural). 
MS$, MP$ String arrays of metric units’ names (singular, plural). 
R$ String array of the relation descriptors. 
С Conversion factor. 
О, ОО, ZZ Work variables. 
B$ String constant of one blank character. 
J Current question number. 
NR Number of questions answered right. 
P Percentage answered right. 
NQ Number of questions in session. 
N Index number of current question in the data list. 
F Flag on question "direction" (0— English to metric; 
1 = metric to English). 
V1, V2 Numeric values on left, right sides of the question. 
V3 The correct value of the right-hand side. 
T Flag on the question's correct answer (1=true; 


0 — false). 
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K 
R 
X 


Loop index. 
User reply flag (0--по; 1--уев; 2—no idea). 
Users result (0 if correct answer was given). 


SUGGESTED PROJECTS 


1. 


N 


9 


Each built-in conversion requires six elements of data in this 
order: 


Element Data Description 


English unit (singular) 

Metric unit (singular) 

Relation descriptor (e.g., “hotter,” “faster,” etc.) 
Conversion factor (from English to metric) 
English unit (plural) 

Metric unit (plural) 


ол + WN — 


Each of these elements, except the fourth, is a string. The DATA 
statements in the listing should make clear how the information is 
to be provided. You can add new data to the program with appro- 
priate variables in this format. The program is dimensioned up to 
thirty entries while only seven are currently used. (Note: this 
format allows only conversions where one unit is a direct multiple 
of the other. Temperature, which does not fit this rule, is handled 
as a special case throughout the program.) If new DATA state- 
ments are added, the DATA statement at line 950 must be modified 
to include the new line numbers. 


. Convert the program to handle units conversion questions of any 


type. 


. Keep track of the questions asked and which ones were missed. 


Then, do not ask the same questions too soon if they have been 
answered correctly. However, do re-ask those questions missed for 
additional practice. 


NUMBERS 


PURPOSE 


This is an educational program for preschool children. After a few 
weeks of watching Sesame Street on television, most three and four- 
year-old children will learn how to count from one to ten. The 
NUMBERS program allows these children to practice their numbers 
and have fun at the same time. 


HOW TO USE IT 


We know a child who learned how to type CLOAD and RUN to get 
this program started before she turned three, but you'll probably have 
to help your child with this for a while. The program asks the 
question, “WHAT NUMBER COMES AFTER n?”, where n is a 
number from one to nine. Even if the child can't read yet, he or she 
will soon learn to look for the number at the end of the line. The child 
should respond with the appropriate number, and then press the 
RETURN key. 

If the answer is correct, the program displays the message 
"THAT'S RIGHT!”, pauses for a couple of seconds, and then dis- 
plays three geometric shapes. In the upper left of the screen, a square 
is drawn. In the center, a triangle is drawn. Then an asterisk (or a 
snowflake, perhaps?) is drawn in the lower right portion of the 
screen. After about a five-second delay, the program clears the screen 
and asks another question. The same number is never asked twice in a 
row. The size of the three figures is chosen at random each time. 
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If the child provides the wrong answer, a message indicates the 
error and the same question is asked again. 

The program keeps on going until you enter ^E" (for end) instead 
of a number. Remember that most children have a pretty short atten- 
tion span, so please do not force your child to continue after his or her 
interest diminishes. Keep each session short and fun. This way, it will 
always be a treat to “play” with the computer. 


SAMPLE RUN 


The program asks what number comes after 5 and waits for a response. 
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Because of the correct response, the program draws three geometric 
figures. 


PROGRAM LISTING 


10 REM NUMBERS 

15 REM COPYRIGHT 1984 DILITHIUM FRESS 

20 DIM R$03) 

5О GRAFHICS 3:SETCOLOR 1,12,6:SETCOLOR 2,0,0 
40 MEO: TX®25: TYs15:n255: B=35 

SO FOKE 752,1:РКІМТ CHR (125) 


60 PRINT 

70 PRINT " NUM BER S" 

Во R=INT (МЖКМО (1) ) +1:1ІЕ R=F THEN 80 
90 FRINT 


100 PRINT "WHAT NUMBER COMES AFTER ":R;" "3 
110 INFUT R$ 

119 IF LEN(R$)-O THEN 100 

120 PRINT :IF R&="E" THEN GRAPHICS O:END 
125 IF ASC(R$)4£48 OR ASC(RS) 557 THEN 140 
150 IF VAL (КФ) =К+1 THEN 160 

140 FRINT "NO, THAT^S NOT IT. TRY AGAIN." 
150 GOTO 90 

160 PRINT "THAT'S RIGHT!" 

170 FOR X=1 TO 1000:NEXT X 

180 P-R:FRINT CHR$ (125) 

190 Ci-INT(CLGXKND(GO)): C22 INTCEGXRND(CO)) 

ОО CS-INT(OOLGXRND(GCO)) : IF C12C2 THEN C2=INT ((C2+4 
2/4) 
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205 IF Ci1sC3 THEN C3=INT( (C342) /2) 

207 IF C2=C3 THEN (2=INT((C2+Z) 7/3) 

210 GRAFHICS 5416 

220 SETCOLOR 0,С1,10 

250 SETCOLOR 1,C2,10 

240 SETCOLOR 2,035,10 

245 EZINT((LOXRND(O)O +S 

250 COLOR 1i:PLOT 1,1:DRAWTO Е, 1:DRAWTO E,E:DRAWT 
D 1,E: DRAWTO 1,1 

255 E=INT (1OXRND (0) ) +9 

260 COLOR 2:FOR J=1 TO E 

270 YsTY+J:X=TX+J: PLOT Х,Ү:МЕХТ J 

280 FOR 1-1 TO E:YzTY-*J: X-STX-J42:PLOT Х,Ү:МЕХТ J 
290 YzTY4*E*1:FQ0R Х-ТХ-Ез1 TO TX*E*1:PLOT X,Y:NEX 
T X 

5оо COLOR 3 

205 E=INT (8*RND(O) ) +5 

310 FOR J=1 TOE 

220 X=A+J:Y=B+J: PLOT X,Y 

550 Y=B-J:PLOT X,Y 

240 Y=B:PLOT X,Y 

350 X=A:PLOT X,Y 

260 YzB*J:FPLOT X,Y 

370 Y=B-J:PLOT X,Y 

580 X=A-J:sPLOT X,Y 

390 Y=B:PLOT X,Y 

400 Ү=В+Ј: РОТ X,Y 

410 NEXT J 

420 FOR J=1 TO 1500:NEXT J 

430 GRAPHICS 3: SETCOLOR 1,12,6: SETCOLOR 2,0,0 
440 GOTO 80 


EASY CHANGES 


1. Change the range of numbers that the program asks by altering the 
value of M in line 40. For a beginner, use a value of 3 for M instead 
of 9. Later, increase the value of M to 5, and then 8. 

2. Alter the delay after "THAT'S RIGHT!” is displayed by altering 
the value of 1000 in statement 170. Double it to double the time 
delay, etc. The same can be done with the 1500 in line 420 to alter 
the delay after the figures are drawn. 

3. To avoid randomness in the size of the figures that are drawn, 
replace line 245 with 

245 E=11 
Instead of 11, you can use any integer from 3 to 12. Also change 
lines 255 and 305 to 


255 REM 
305 REM 
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MAIN ROUTINES 
10- 70  Initializes variables. Clears screen. 
80 Picks random integer from 1 to M. 
90-160 Asks question. Gets answer. Determines if right or 
wrong. 
170 Delays about 3 seconds. 


180-250 Determines colors and draws a square. 
255-290 Draws a triangle. 

300-410 Draws an asterisk. 

420 Delays about 5 seconds. 

430- 440 Clears screen. Goes back to ask next question. 


MAIN VARIABLES 

C1,C2, Color control variables. 

C3 

M Maximum number that will be asked. 
E Edge length of geometric figures. 

R Random integer in range from 1 to M. 
P Previous number that was asked. 

R$ Reply given by operator. 


X,Y Coordinates in CRT display; also work variables. 
TX, TY Triangles reference locations. 

А, B X,Y coordinate values. 

J Loop index. 


SUGGESTED PROJECTS 


1. Modify the program to ask the next letter of the alphabet. Use the 
ASC and CHR$ functions in picking a random letter from A to Y, 
and to check whether the response is correct or not. 

2. Ask each number from 1 to M once (in a random sequence). At the 
end of the sequence, repeat those that were missed. 

3. Add different shapes to the graphics display that is done after a 
correct answer. Try an octagon, a diamond, and a rectangle. Or, 
combine this program with one of the graphics display programs. 
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TACHIST 


PURPOSE 


This program turns your computer into a tachistoscope (tah-KISS- 
tah-scope). A tachistoscope is used in reading classes to improve 
reading habits and, as a result, improve reading speed. The program 
displays a word or phrase on the screen for a fraction of a second, 
then asks you what it was. With a little practice, you will find that you 
can read phrases that are displayed for shorter and shorter time 
periods. 


HOW TO USEIT 


The program starts off by displaying a brief introduction and 
waiting for you to press any key (except the BREAK key or shift 
keys, of course). If you press the ESCAPE key, the program ends. 
After you press a key, the screen is blanked out except for two 
horizontal dash lines in the upper left-hand corner. After approx- 
imately two seconds, a phrase is flashed on the screen between the 
two lines. Then the screen is blanked again, and you are asked what 
the phrase was. 

If you respond correctly, the next phrase is displayed for a shorter 
time period (half as long). If you respond incorrectly, the program 
shows you the correct phrase, and the next phrase is displayed for a 
longer period of time (twice as long). 

The fastest the computer can display a phrase and erase it is about 
0.02 second (one-fiftieth). See if you can reach the top speed and still 
continue to read the phrases correctly. 
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A great deal of research has been done to determine how people 
read and what they should do to read both faster and with better 
comprehension. We will not try to explain it all (see the bibliogra- 
phy), but a couple of things are worth mentioning. 

To read fast, you should not read one word at a time. Instead, you 
should learn to quickly read an entire phrase at once. By looking at a 
point in the center of the phrase (and slightly above it), your eyes can 
see the whole phrase without the necessity of scanning it from left to 
right, word by word. Because the tachistoscope flashes an entire 
phrase on the screen at once, it forces you to look at a single point and 
absorb the whole phrase, rather than scanning left to right, word by 
word. 

If you can incorporate this technique into your reading and in- 
crease the width of the phrases you absorb, your reading speed can 
increase dramatically. 


SAMPLE RUN 


The program displays an introduction, then waits. 
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The program clears the screen and displays two parallel lines in the upper 
left of the screen for a couple of seconds. 


The program flashes a short phrase (chosen at random) between the two 
lines for a fraction of a second, then clears the screen. 
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The program asks what the phrase was. The operator responds correctly. 
The program acknowledges the correct response, and indicates that the 
next phrase will be shown for half as long. 


PROGRAM LISTING 


10 REM TACHIST 

15 REM COPYRIGHT 1984 DILITHIUM FRESS 

130 T=256: CLOSE 41:ОРЕМ #1,4,0, "Rs" 

140 (50 

180 DIM T$(XAO0),X(L) ,R$(CAO) 

160 С=0:РОКЕ 82,2 

170 READ R 

180 IF R-2-1 THEN 250 

190 C=C+1: IF СУ. THEN PRINT "жж TOO MANY DATA ST 
ATEMENTS жж": ЕМО 

200 X(C)-R 

210 GOTO 170 

250 GRAPHICS O 

260 FRINT 

270 PRINT "kkkk TACHISTOSCOFE Xx*xxx" 

280 PRINT 

290 PRINT "THIS FROGRAM IS DESIGNED ТО" 

ЗОО PRINT “IMPROVE YOUR READING SPEED. " 

510 PRINT 

520 PRINT "I'LL BRIEFLY DISPLAY A SHORT PHRASE," 
XO PRINT "AND YOU TRY TO READ IT." 

540 FRINT 

250 FRINT "ТҮРЕ АНАТ YOU SEE, AND ILL TELL YOU" 
360 PRINT "IF YOU WERE RIGHT." 
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270 PRINT 

410 FRINT "FRESS ANY KEY WHEN YOU'RE READY," 

415 PRINT "OR THE ESC KEY TO STOP." 

420 GET #1,R:IF R=27 THEN END 

430 R=INT(C*RND(1))+1 

440 IF Кері OR R=P2 OR R-PZ OR R=P4 OR R=PS THEN 
30 

460 GOSUB 840:FOR K=1 TO ZOO:NEXT К 

470 GÜSUB 750:POSITION 2,2:PRINT T$ 

480 FOR J=1 TO T:NEXT J 

500 PRINT СНЕФ (125) :ЕОК K=1 TO 200:NEXT К 

510 PRINT :FRINT :PRINT :PRINT 

520 PRINT "WHAT WAS IT?":POKE 752,0 

530 PRINT :INFUT R$ 

540 IF R$<>T THEN 700 

S50 PRINT :PRINT "THAT'S RIGHT!" 

S60 T=T/2 

590 R$="FOR HALF AS LONG." 

600 PL=P2:P2=P3:PS=P4:P4=PS: Pak 

610 PRINT 

620 IF Т<8 THEN T=8:R$="AT MAXIMUM SPEED." 

630 PRINT "THE NEXT TIME IT WILL BE DISPLAYED": Р 

RINT RS 

640 PRINT :GOTO 410 

700 PRINT "NO, THAT'S NOT IT. IT WAS" 

710 PRINT :PRINT CHRS (39) ; ТФ: СНАФ (39) 

720 T=Tx2 

750 IF T1024 THEN T=1024:R$="AT THE SAME SPEED. 

"GOTO 600 

740 R$s"FOR TWICE AS LONG.":GOTO 600 

750 RESTORE X(R):READ Т%:КЕТМЕМ 

840 POKE 752,1:PRINT CHR$(125):FOR 2-1 TO 15:PRI 

NT СНАФ (45); 

BSO NEXT J:PRINT :PRINT :FOR 4-1 TO 15 

860 PRINT CHR$(A45); :NEXT J 

870 RETURN 

900 DATA 910,920,930, 940, 950, 940, 970, 980, 990, 100 

O, 1010, 1020, 1030, 1040, 1050, 1060, 1070, 1080, 1090, 1 

100, -1 

910 DATA AT THE TIME 

920 DATA THE BROWN СОМ 

930 DATA LOOK AT THAT 

940 DATA IN THE HOUSE 

950 DATA THIS IS MINE 

960 DATA SHE SAID SO 

970 DATA THE BABY CRIED 

980 DATA TO THE STORE 

990 DATA READING IS FUN 

1000 рата IN ALL THINGS 

1010 DATA HE GOES FAST 

1020 DATA GREEN GRASS 

1030 DATA TWO BIRDS FLY 
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1040 DATA LATE LAST NIGHT 
1050 DATA THEY ARE HOME 
1060 DATA THROUGH A DODR 
1070 DATA WE CAN TRY 

1080 DATA MY FOOT HURTS 
1990 DATA HAPPY NEW YEAR 
1100 DATA ON THE PHONE 


EASY CHANGES 


1. Change the phrases that are displayed by changing the DATA 
statements that start at line 910. Add more and/or replace those 
shown with your own phrases or words. Line 140 must specify a 
number that is at least as large as the number of DATA statements. 
So, to allow for up to 100 DATA statements, change line 140 
to say 


140 L=100 


Be sure to enter your DATA statements in the same form as shown 
in the program listing. The line numbers of all these DATA state- 
ments must be listed on earlier DATA statements, followed by a 
value of negative one, as shown in line 900. More than one such 
statement can be used if necessary, with a negative one at the end of 
the last one only. To begin with, you may want to start off with 
shorter phrases or single words. Later, try longer phrases. If you 
have 4000 bytes free (see Appendix 1), you have room for about 80 
phrases of the approximate size shown in the program listing. 

2. To change the length of time the first phrase is displayed, change 
the value of T in line 130. Double it to double the length of time, 
etc. Don’t make it less than 8. 

. To cause all phrases to be displayed for the same length of time, 
remove lines 560 and 720, and insert these lines: 


595 R$=“AT THE SAME SPEED" 
725 R$=“AT THE SAME SPEED”:GOTO 600 
4.If you want to change the waiting period before the phrase is 
flashed on the screen, change the 300 in line 460. To make the 
delay five seconds, change it to 1000. To make it one second, 
change it to 150. 
. To put the program into a sort of flashcard mode, in which the 
phrases are flashed, but no replies are necessary, insert these three 
lines: 


Uo 


CA 


515 GOTO 710 
595 R$=“AT THE SAME SPEED” 
715 GOTO 590 
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This will cause each phrase to be flashed (all for the same length of 


time), 


and then to be displayed again so you can verify what it was. 


MAIN ROUTINES 

130-150 Initializes variables. 

160-210 Reads line numbers of DATA statements into X array. 

250-370 Displays introduction. 

410-420 Waits for operator to press a key. 

430-440 Picks random phrase. Ensures no duplication from pre- 
vious five phrases. 

460 Clears screen and displays horizontal lines 

470-500 Displays phrase for appropriate length of time. 

510—530 Asks what phrase was. 

540 Determines if typed phrase matches the phrase 
displayed. 

550-640 Shortens time for next phrase if reply was correct. Saves 
subscript to avoid repetition. Goes back to wait for key to 
be pressed. 

700-740 Shows what phrase was. Lengthens time for next phrase. 
Ensures that time period does not exceed maximum. 

750 Subroutine to place phrase into T$. 

840-870 Subroutine to display horizontal dash lines. 

900-909 DATA statements with line numbers of other DATA 
statements. 

910-1100 DATA statements with phrases to be displayed. 

MAIN VARIABLES 

T Time that phrase will be displayed. 

J Loop variable. 

L Limit of number of phrases. 

X Array of DATA statement line numbers. 

T$ Selected phrase (read into from DATA statements). 

C Count of number of phrases actually read. 

R$ Temporary string variable. Also, reply of operator. 

R Work variable. Also subscript of phrase to be displayed. 

P1,P2, Subscripts of the five previous phrases. 

P3, P4, P5 

K Temporary work variable. 
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SUGGESTED PROJECTS 


ке 


. Instead of picking phrases at random, go through the list once 


sequentially. 


. Instead of only verifying that the current phrase does not duplicate 


any of the previous five phrases, modify the program to avoid 
duplication of the previous ten or more. Changes will be needed to 
lines 440 and 600. 


. Keep score of the number of correct and incorrect replies, and 


display the percentage each time. Alternatively, come up with a 
rating based on the percentage correct and the speed attained, 
possibly in conjunction with a difficulty factor for the phrases 
used. 


. Add the capability to the program to also have a mode in which it 


can display a two to seven digit number, chosen at random. Have 
the operator try several of the numbers first (maybe five digit ones) 
before trying the phrases. The phrases will seem easy after doing 
the numbers. 


VOCAB 


PURPOSE 


Did you ever find yourself at a loss for words? Well, this vocabu- 
lary quiz can be used in a self-teaching environment or as reinforce- 
ment for classroom instruction to improve your ability to remember 
the jargon of any subject. It allows you to drill at your own pace, 
without the worry of ridicule from other students or judgment by an 
instructor. When you make mistakes, only the computer knows, and 
it's not telling anyone except you. Modifying the program to sub- 
stitute a different vocabulary list is very simple, so you can accumu- 
late many different versions of this program, each with a different set 
of words. 


HOW TO USEIT 


This program is pretty much self-explanatory from the sample 
run. After you enter “RUN,” it asks you how many questions you 
would like. If you respond with a number less than five, you will still 
do five. Otherwise, you will do the number you enter. 

Next, you get a series of multiple-choice questions. Each question 
is formatted in one of two ways— either you are given a word and 
asked to select from a list of definitions, or you are given a definition 
and asked to select from a list of words. The format is chosen at 
random. You respond with the number of the choice you think is 
correct. If you are right, you are told so. If not, you are shown the 
correct answer.. From the second answer on, you are shown a status 
report of the number correct out of the number attempted so far. 
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Finally, after the last question, you are shown the percentage you 
got correct, along with a comment on your performance. Then you 
have the option of going back for another round of questions or 
stopping. 


SAMPLE RUN 


The program displays an introduction and asks how many questions to 
display. The operator selects 5. 
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C9MPANY- LOVING 

IUCGMENT 
Н і FRUGAL 
LLE мо ING 


ded hk 


The program responds that the first answer was correct, and asks the 
next question. 


At the end of 5 questions, the program gives a final score and asks about 
trying again. 
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PROGRAM LISTING 


10 REM VOCAB 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 

100 REM VOCABULARY PROGRAM 

200 TRAP 6500 

300 GOSUB 1000 

400 GOSUB 2000 

500 GOSUB 3000 

600 GOSUB 4000 

700 GOSUB 5000 

BOO GOSUB 6000 

900 IF Е=0 THEN 500 

910 GOTO 300 

1000 IF Е<>0 THEN 1060 

1010 GRAPHICS O:PRINT CHR$(125):POKE 82,2 
1020 PRINT "Жжжж VOCABULARY QUIZ Xxxx" 

1030 PRINT 

1040 PRINT "THIS PROGRAM WILL TEST YOUR KNOWLEDG 
E" 

1050 PRINT "OF SOME USEFUL VOCABULARY WORDS. " 
1060 PRINT 

1110 ZX=2:FRINT "HOW MANY QUESTIONS SHALL WE DO 
“ss INPUT L 

1120 IF L>4 THEN 1140 

1120 PRINT :PRINT "THAT'S NOT ENOUGH. LET'S DO 5 
"FOR 1-1 TO 1000:NEXT L:L-5 

1140 IF Е<>0 THEN 1200 

1150 PRINT 

1200 PRINT CHR$(125) : RETURN 

2000 IF Е<>0 THEN 2200 

2010 C=5 

2020 D=26 

2050 DIM D$(40),E$(40) , F(C), XXD) ,R$(40) , ТФ (40) 
2050 J=1:RESTORE 

2060 READ Z:IF 2=-1 THEN 2140 

2070 X(J)=Z 

2100 J=J+1 

2110 IF J<=D THEN 2060 

2120 PRINT "kk TOO MANY DATA STATEMENTS. kk" 
2130 PRINT "XX ONLY FIRST ";D;" ARE USED. xx" 
2140 D=J-1 

2200 Q=1 

2210 ЕО 

2220 @1=0 

2:300 RETURN 

3000 FOR J=1 TO C 

2010 P (J)=O 

5020 NEXT J 

2030 FOR J=1 TO C 

3040 PsINT(DXRND(1))41 

204% IF P=P1 OR P=P2 OR PzPZ THEN 2040 
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3050 FOR K=1 TO J 

2060 IF P(K)zP THEN 3040 

3070 NEXT K 

2080 P (J)=P 

3090 NEXT J 

5110 A=INT(CERND(1)) +1 

3200 RETURN 

4000 PRINT 

4010 M=RND (1) 

4020 RESTORE X(P(A)):READ D$:READ ES 
4025 IF М>0.5 THEN 4100 

4030 PRINT 0; " WHAT WORD MEANS" 

4035 PRINT " — ";Es$;"?" 

4040 FOR 1-1 TO C 

4045 RESTORE X(P(J)):READ RS$:READ ТФ 
4050 PRINT " "sds" — "iR$ 

4060 NEXT J 

4070 GOTO 4210 

4100 PRINT Q;" WHAT DOES ";D$;" MEAN?" 
4110 FOR J=1 TO C 

4115 RESTORE X(P(J)):READ R$:READ T$ 
4120 PRINT “005404 — "ұт 

4150 NEXT 2 

4210 RETURN 

5000 ZXs1:INPUT R 

5010 IF R>=1 AND R«sC THEN 5050 

5020 PRINT "I NEED A NUMBER FROM 1 TO "iC 
5030 БОТО 5000 

5050 IF R=A THEN 5100 

5060 PRINT "NO, THE ANSWER IS NUMBER "за 
5070 GOTO 5210 

5100 PRINT "RIGHT!" 

5110 Gi-Qi-1 

5210 IF @=1 THEN 5300 

5220 PRINT "YOU HAVE "i01;" RIGHT OUT OF ";Q;" Q 
UESTIONS" 

5300 P23-P2 

5310 P2=F1 

5320 P1i=P tA) 

5330 RETURN 

6000 Q=Q+1 

6010 IF G«-L THEN RETURN 

6020 Е=1 

6030 Q=01*100/ (Q-1) 

6040 IF Q»0 THEN 6070 

6050 PRINT "WELL, THAT'S A *FERFECT’ SCORE..." 
060 GOTO 6200 

6070 PRINT "THAT'S "105" PERCENT.' 
6080 IF Q»25 THEN 6110 

6090 PRINT "CONGRATULATIONS ON AVOIDING A SHUTOU 
T" 

5100 GOTO 6200 


100 
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6110 
5120 
6130 
6140 
6150 
6160 
6170 
6180 
AS I 
6200 
6210 
6215 
6220 
6230 
6240 
6250 
6500 


IF (4»50 THEN 6140 

PRINT "YOU CAN USE SOME MORE FRACTICE" 
GOTO 6200 

IF 0>75 THEN 6170 

PRINT "NOT BAD, BUT ROOM FOR IMPROVEMENT" 
GOTO 6200 

PRINT "VERY GOOD!” 

IF Q595 THEN PRINT "YOU'RE ALMOST AS SMART 
АМ!" 

FRINT 

PRINT “WANT TO TRY AGAIN ";:1NPUT R$ 

IF LEN(CR$)-0 THEN 6210 

IF R$(1,1)<¢>"N" THEN 6240 

PRINT :PRINT "CHECK YOU LATER": END 

IF R$(1,1)0«5"Y" THEN 6200 

RETURN 

IF РЕЕК (195) =8 THEN PRINT :PRINT "Xk ILLEGA 


L ENTRY XX":PRINT :TRAP 6500:0N ZX GOTO 5000,111 


0 
5510 
7000 


END 
DATA 7020,7030,7040,7050,70%0,7070,7080,709 


0,7100,7110,7120,7130,7140,7150, -1 


7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
CE 

7100 
7110 
7120 
7130 
7140 
7150 


DATA ANONYMOUS, OF UNKNOWN OR HIDDEN ORIGIN 
DATA OMINOUS, THREATENING OR MENACING 

DATA AFFLUENT, WEALTHY 

DATA LACONIC, TERSE 

DATA INTREFID, FEARLESS OR COURAGEOUS 

DATA GREGARIOUS, SOCIAL OR COMPANY~L.OVING 
DATA ENERVATED, WEAK OR EXHAUSTED 

DATA VENERABLE,WORTHY OF RESPECT OR REVEREN 


DATA DISPARATE, DIFFERENT AND DISTINCT 
DATA VIVACIOUS, LIVELY OR SPIRITED 
рата ASTUTE,KEEN IN JUDGMENT 

рата URSINE, BEARL IKE 

DATA FARSIMONIOUS, STINGY OR FRUGAL 
DATA GOMNISCIENT, ALL -KNOW ING 


EASY CHANGES 


1. Add more DATA statements after line 7150, or replace the DATA 
statements between lines 7020 and 7150 with your own. Be careful 
not to use two or more words with very similar definitions; the 
program might select more than one of them as possible answers to 
the same question. Note that each DATA statement first has the 
vocabulary word, then a comma, and then the definition or syn- 
onym. Be sure there are no commas or colons in the definition 
(unless you enclose the definition in quotes). If you add more 
DATA statements, you have to increase the value of D in line 2020 


nN 


O 
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to be at least one greater than the number of words. The number of 
DATA statements you can have depends on how long each one is 
and how much user memory your computer has. Using DATA 
statements that average the same length as these, you can probably 
have about 40 of them if you have 4000 bytes free (see Appendix 
1), or over 200 with 10,000 bytes free. Be sure to add the line 
numbers of added DATA statements to the list in line 7000. This 
list is terminated with —1 to signal the end of the data. 

. To get something other than five choices for each question, change 
the value of C in line 2010. You might want only three or four 
choices per question. 

. If you do not want to be given a choice of how many questions are 
going to be asked, remove lines 1110 through 1130 and insert the 
following lines: 


1110 PRINT “WE'LL DO TEN QUESTIONS.” 
1120 L=10 


This will always cause ten questions to be asked. Of course, you 
can use some number other than ten if you want. 


MAIN ROUTINES 


200 Sets error trap. 
300- 910 Mainline routine. Calls major subroutines. 
1000-1200 Displays introduction. Determines number of questions 
to be asked. 
2000-2300 Reads line numbers of vocabulary words and defini- 
tions into arrays. Performs housekeeping. 
3000-3200 Selects choices for answers and determines which will 
be the correct one. 
4000-4210 Determines in which format the question will be asked. 
Asks it. 
5000-5330 Accepts answer from operator. Determines if right or 
wrong. Keeps score. Saves subscripts of last three cor- 


rect answers. 

6000-6250 Gives final score. Asks about doing it again. 

6500 Error trap for illegal inputs. Displays error message 
and tries again. 


7000-7150 Variable statements with vocabulary words and 
definitions. 
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MAIN VARIABLES 


Set to 1 to avoid repeating introduction after the first 
round. 


L Limit of number of questions to ask. 

R Operators reply to each question. 

C Number of choices of answers given for each question. 

D At least one greater than number of DATA statements. 
Used to DIM arrays. 

D$ Selected word. 

E$ Selected definition. 

P Array for numbers of possible answers to each question. 

J Work variable (subscript for FOR-NEXT loops). 

Q Number of questions asked so far (later used to calculate 
percent correct). 

Q1 Number of questions correct so far. 

P Work variable. 

P1,P2, Last three correct answers. 

P3 

T$ Temporary string. 


K, ZX Working variables. 


A Subscript of correct answer in P array. 

M Work variable to decide which way to ask question. 

R$ Yes or no reply about doing another round. 

X Array of DATA line numbers. 

SUGGESTED PROJECTS 

1. Modify lines 6030 through 6200 to display the final evaluation 


w 


messages based on a finer breakdown of the percent correct. For 
example, show one message if 100 percent, another if 95 to 99, 
another if 90 to 94, etc. 


. Ask the operators name in the introduction routine, and person- 


alize some of the messages with his/her name. 


. Instead of just checking about the last three questions, be sure that 


the next question has not been asked in the last eight or ten ques- 
tions. (Check lines 3045 and 5300 through 5320.) 


. Keep track of which questions the operator misses. Then, after 


going through the number of questions he/she requested, repeat 
those that were missed. 


Section 3 


Game Programs 


INTRODUCTION TO GAME PROGRAMS 


Almost everyone likes to play games. Computer games are a fun 
and entertaining use of your ATARI computer. Besides providing 
relaxation and recreation, they have some built-in practical bonuses. 
They often force you to think strategically, plan ahead, or at least be 
orderly in your thought processes. They are also a good way to help 
some friends over their possible “computer phobia.” We present а 
collection of games to fit any game-playing mood. 

Maybe you desire a challenging all-skill game? Like chess or 
checkers, WARI involves no luck and considerable thinking. The 
computer will be your opponent, and a formidable one indeed. 

Perhaps you're in the mood for a game with quick action and 
mounting excitement. GROAN is a fast-paced dice game involving 
mostly luck with a dash of skill (or intuition) thrown in. The com- 
puter is ready for your challenge any time. 

JOT is a word game. You and the ATARI each take secret words 
and then try to home in on each other's selection. 

Do you like solving puzzles? If so, try DECODE. The computer 
will choose a secret code and then challenge you to break it. 

Graphic electronic arcade games have been a prevalent landmark 
of the past few years. We include two such games. ROADRACE puts 
you behind the wheel of a high-speed race car. You must steer accu- 
rately to stay on course. OBSTACLE lets you and a friend compete in 
a game of cut and thrust. Each of you must avoid crossing the path 
laid by the other, and by yourself! 
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DECODE 


PURPOSE 


Decode is really more of a puzzle than a game, although you can 
still compete with your friends to see who can solve the puzzles the 
fastest. Each time you play, you are presented with a new puzzle to 
solve. 

The object is to figure out the computers secret code іп as few 
guesses as possible. The program gives you information about the 
accuracy of each of your guesses. By carefully selecting your guesses 
to make use of the information you have, you can determine what the 
secret code must be in a surprisingly small number of guesses. Five 
or six is usually enough. 

The first few times you try, you will probably require quite a few 
more guesses than that, but with practice, you'll discover that you can 
learn a lot more from each guess than you originally thought. 


HOW TO USE IT 


The program starts off by displaying a brief introduction. Here are 
some more details. 

The program selects a secret code for you to figure out. The code is 
a four-digit number that uses only the digits 1 through 6. For exam- 
ple, your ATARI might pick 6153 or 2242 as a secret code. 
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Your object is to guess the code in the fewest possible guesses. 
After each of your guesses, the program tells you a "black" and a 
^white" number. The black number indicates the number of digits in 
your guess that were correct —the digit was correct and in the correct 
position. So, if the secret code is 6153 and your guess is 4143, you 
will be told that black is 2 (because the 1 and the 3 are correct). Of 
course, you aren't told which digits are correct. That is for you to 
figure out by making use of the information that you get from other 
guesses. 

Each of the white numbers indicates a digit in your guess that is 
correct, but which is in the wrong position. For example, if the secret 
code is 6153 and your guess is 1434, you will be told that white is 2. 
The 1 and 3 are correct, but in wrong positions. 

The white number is determined by ignoring any digits that ac- 
counted for a black number. Also, a single position in the secret code 
or guess can only account for one black or white number. These facts 
become significant when the secret code and/or your guess have 
duplicate digits. For example, if the code is 1234 and your guess is 
4444, there is only one black, and no whites. If the code is 2244 and 
your guess is 4122, there are no blacks and three whites. 

This may sound a little tricky, but you will quickly get the hang 
of it. 

At any time during the game, you can ask for a SUMMARY" by 
entering an S instead of a guess. This causes the program to clear the 
screen and display each guess (with the corresponding result) that has 
occurred so far. 

Also, if you get tired of trying and want to give up, you can enter a 
Q (for "quit") to end your misery and find out the answer. Otherwise, 
you continue guessing until you get the code right (four black, zero 
white), or until you have used up the maximum of 12 guesses. 
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The program displays an introduction, chooses its secret code, and asks 
for the operators first guess. After the operator makes a guess, the 


program responds with a “black” and a “white” number, and asks for the 
second guess. 


Later in the same game, the operator asks for a summary, then makes the 
guess that turns out to be correct. The program acknowledges that the 
guess is correct and asks about trying another game. 
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PROGRAM LISTING 


10 REM DECODE 

15 REM COPYRIGHT 1984 DILITHIUM FRESS 

30 Dsó:Ps4:L-12 

40 DIM GE(P,L),G(L), C(P), BIL) МО), B&(40) ,A$(40) 
‚ХО 

to GOSUB 650 

60 GOSUB 220:GOSUB 240 

65 TRAP 1000 

70 PRINT "GUESS NUMBER ":6;" "i: INPUT АФ 

100 IF A$-"S" THEN 300 

110 IF AS="Q" THEN 280 

120 IF LEN(A®)<>F THEN PRINT "ILLEGAL GUESS": БОТ 
D 70 

130 FOR 02-1 ТОР 

140 GGGJ, B) =VAL САФ (20,09 

50 NEXT J 

160 TRAP 40000 

170 GOSUB 470 

180 GOSUB 410 

190 IF B(G)-P THEN 800 

200 GsG«1:IF G»L THEN 940 

210 GOTO 65 

220 Gs1:FOR J=1 TO Р:С(Ј) =0: МЕХТ d 

230 RETURN 

240 FÜR J=1 TO F 

250 RsINT(DXRND(CD) +1 

260 C(J)=R 

270 NEXT J 

280 PRINT "I'VE CHOSEN MY SECRET CODE." 

290 PRINT RETURN 

Z300 IF Өзі THEN PRINT "NO GUESS YET.":GOTO 65 
310 PRINT CHR#(125):PRINT " XXXx SUMMARY Жжжж 
"PRINT 

5220 PRINT "NO. GUESS BLACK WHITE" 

330 FOR J=1 TO G-1:IF J<10 THEN PRINT CHR (32) ; 
240 PRINT J;" "3; 

345 FOR K=1 TO P:PRINT GG(K, J); NEXT К 

247 PRINT " ":sBOD;" “sw 

350 IF 6410 THEN PRINT 

260 NEXT J:PRINT 

370 GOTO 65 

280 PRINT 

290 PRINT "CAN'T TAKE IT, HUH?" 

400 PRINT :PRINT "WELL, MY CODE WAS?"s 

410 FOR J=1 To 4 

420 PRINT "."; 

450 FOR К=1 ТО ZOO:NEXT K 

440 NEXT J 

450 FOR dei TO Р:РКІМТ C(J)3sNEXT J:PRINT 

460 GOTO 880 
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470 
аво 
490 
BOO 
210 
520 
S30 
540 
S90 
Seo 
$70 
Sao 
E90 
600 
610 
620 

50 
640 
650 
660 
570 
680 
700 
710 
720 
750 
740 
750 
760 
770 
7806 
790 
BOO 
810 
B20 
B30 
B40 
B50 
E60 
870 
13219) 
890 
FOO 
910 
F20 
950 
940 
950 
960 
970 


B=0: W=0 

FOR J=1 TO F 

G(J) =656 (7,6) 

X GO #0 (J) 

IF X(J)=G(J) THEN В=В+1:65 (3) =0:Х (3) =0 
NEXT J 

FOR 1-1 TO Е 

H=O:FOR K=1 TO F 

IF X(J)=0 THEN 580 

IF G(J)Z2 >G (É) THEN 580 

Н=1: 6508) =0:Х (J) =0 

NEXT Ki W=W+H 

NEXT J 

RETURN 

B(G) =B:W(G) =: FE RINT 

PRINT "GUESS NO. "363 

PRINT " -- BLACK = "B" WHITE = "iW 
PRINT : RETURN 

GRAPHICS OPRINT CHR$(125):POKE 82,2 
PRINT ЖЖЖЖ DECODE ЖЖЖЖ" 

РКІМТ :PRINT 

FRINT "FIGURE OUT А "ІР" POSITION CODE" 
PRINT “USING THE DIGITS 1 THRU ";D 
PRINT : PRINT 

FRINT "BLACK? INDICATES A CORRECT DIGIT" 
PRINT "IN THE RIGHT POSITION." 

PRINT 

PRINT 

PRINT "'UWHITE' INDICATES SOME OTHER CORRECT" 
PRINT "DIGIT, BUT IN THE WRONG POSITION." 
PRINT : PRINT 

RETURN 

PRINT "YOU GOT IT IN "363" GUESSES" 

IF (< THEN B$=" OUTSTANDING!" 

IF G=5 OR G=& THEN B$-"PRETTY GOOD" 

IF G=7 THEN ВФе"МОТ BAD" 

IF G=8 THEN B$-"NOT TOO GREAT" 

IF G8 THEN ВФ="РВЕТТҮ BAD" 

PRINT :PRINT "...THAT^S "; B$ 

PRINT 

PRINT "WANT TO TRY AGAIN ";:INFUT АФ 

IF LEN(A$)-0 THEN 880 

IF A$(1,1)-"Y" THEN SO 

IF A*&(1,10z2"N" THEN 880 

PRINT : PRINT "COWARD. ":PRINT 

END 

PRINT 

FRINT "THAT'S YOUR LIMIT OF GUESSES" 
PRINT 

PRINT "MY CODE WAS ";:FOR J=1 TO F:PRINT СОЈ 


)5:NEXT J 


780 


GOTO 870 
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1000 IF РЕЕК(195)<>18 THEN 1030 

1010 PRINT "ILLEGAL GUESS" 

1020 GOTO 65 

1030 PRINT "ERROR TYPE "3PEEK (195) 5 

1040 PRINT " IN LINE "; PEEK (187) X256+PEEK (186) 
1050 END 


EASY CHANGES 


к- 


. Modify line 30 to change the complexity of the code and/or the 
number of guesses you are allowed. For example, the following 
lines would allow fifteen guesses at a five-position code using the 
digits 1 through 8: 


30 D=8:P=5:L=15 


The introduction will automatically reflect the new values for D 
and P. Be sure that neither D nor P is set greater than 9. 

2. To change the program so that it will always display the “Sum- 
mary" information after each guess automatically, replace line 210 
with: 


210 GOTO 300 
MAIN ROUTINES 
10- 60 Initializes variables. Displays introduction. Chooses 
secret code. 
65- 180 Gets a guess from operator. Analyzes reply. Displays 
result. 
190 Determines if operator guessed correctly. 


200- 210 Saves guess. Adds one to guess-counter. Determines if 
limit on number of guesses was exceeded. 

220- 230 Subroutine to initialize variables. 

240- 290 Subroutine to choose secret code and inform operator. 

300- 370 Subroutine to display summary of guesses so far. 

380- 460 Subroutine to slowly display secret code when operator 
quits. 

470- 600 Subroutine to determine number of black and white 
responses for the guess. 

610- 640 Subroutine to display number of black and white re- 
sponses for the guess. 

650- 790 Subroutine to display title and introduction. 
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800- 930 Subroutine to analyze operator's performance after cor- 


rect answer is guessed and ask about playing again. 


940- 980 Subroutine to display secret code after operator exceeds 


limit of number of guesses. 


1000-1050 Error trap routine. 


MAIN VARIABLES 


g 


ae 


` 


so 


` 


A 


` 


m= m — O > Q = 


Number of possible digits in each position of the code 

(i.e., a digit from 1 to D). 

Number of positions in the code. 

Limit of number of guesses that can be made. 

Array in which guesses are saved. 

Work arrays in which each guess is analyzed. 

Arrays in which the number of black and white resporises 

is saved for each guess. 

Work variables. 

Counter of the number of guesses made. 

Reply by the operator. 

Secret code chosen by the program (array). 

K Loop variables. 

W Number of black and white responses for this guess. 
String with message about operator's performance. 


m zx 


SUGGESTED PROJECTS 


к. 


N 


. Change the analysis at the end of the game to take into account the 


difficulty of the code as well as the number of guesses it took to 
figure the code out. A four-position code using the digits 1 through 
6 has 1296 possibilities, but a five-position code using 1 through 8 
has 32,768 possibilities. Change lines 810 through 850 to deter- 
mine the message to be displayed based on the number of pos- 
sibilities in the code as well as G. 


. At the beginning of the game, give the operator the option of 


deciding the complexity of the code. Ask for the number of posi- 
tions and the number of digits. Make sure only “reasonable” num- 
bers are used — do not try to create a code with zero positions, for 
example. Another approach is to ask the operator if he/she wants 
to play the easy, intermediate, or advanced version. Then set the 
values of D and P accordingly. Suggestions are: 
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Easy: D=3 and P=3 
Intermediate D=6 and P=4 
Advanced: D=8 and P=5 


3. In addition to using the number of guesses to determine how well 
the operator did, keep track of the amount of time. This will 
require some logic to replace the INPUT in line 70. 


GROAN 


PURPOSE 


Do you like the thrills of fast-paced dice games? If so, GROAN is 
right up your alley. It is a two-person game with the computer playing 
directly against you. There is a considerable amount of luck in- 
volved. However, the skill of deciding when to pass the dice to your 
opponent also figures prominently. 

The ATARI will roll the dice for both players, but don't worry — it 
will not cheat. (We wouldn't think of stooping to such depths.) 

Why is the game called GROAN? You will know soon after play- 
ing it. 


HOW TO USEIT 


The game uses two dice. They are just like regular six-sided dice 
except for one thing. The die face where the *1" would normally be 
has a picture of a frowning face instead. The other five faces of each 
die have the usual numbers two through six on them. 

The object is to be the first player to achieve a score agreed upon 
before the start of the game. Players alternate taking turns. А turn 
consists of a series of dice rolls (at least one roll, possibly several) 
subject to the following rules. 

As long as no frown appears on either die, the roller builds a 
running score for this current series of rolls. After each roll with no 
frown, he has the choice of rolling again or passing the dice to his 
opponent. If he passes the dice, his score achieved on the current 
series is added to any previous total he may have had. 
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But if he rolls and a frown appears, he will be groaning. A frown 
on only one die cancels any score achieved for the current series of 
rolls. Any previous score is retained in this case. However, if he rolls 
a double frown, his entire previous total is wiped out as well as his 
current total. Thus, he reverts back to a total score of zero—true 
despair. 

The program begins by asking what the winning score should be. 
Values between 50 and 100 tend to produce the best games, but any 
positive value is acceptable. Next, a simulated coin toss randomly 
decides who will get the first roll. 

Each dice roll is portrayed with a short graphics display. The dice 
are shown rolling and then the outcome is displayed pictorially. 
During each roll, the ATARI indicates who is rolling. 

Each roll is followed by a display of the scoreboard. This score- 
board gives all relevant information: score needed to win, both play- 
еге scores before the current series of rolls, and the total score for the 
current series. 

If a frown should appear on a die, the scoreboard will indicate the 
current running total as zero. In addition, the previous total will 
become zero in the case of the dreaded double frown. In either case, 
the dice will be passed automatically to the next player. 

If a scoring roll results, the roller must decide whether to roll again 
or to pass the dice. The program has a built-in strategy to decide this 
for the ATARI. For you, the question will be asked after the score- 
board is displayed. The two legal replies are P and R. The R means 
that you wish to roll again. The P means that you choose to pass the 
dice to the computer. If you should score enough to win, you must 
still pass the dice to add the current series to your previous total. 

The first player to pass the dice with a score greater than or equal 
to the winning score is the victor. This will surely cause his opponent 
to GROAN. The computer will acknowledge the winner and then 
request another game. 
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SAMPLE RUN 


TO HIN 
20508 I3 BESTII TAS 


The operator has decided to challenge the ATARI to a 75-point game of 
GROAN. 


The computer wins the coin toss and gets the first dice roll. 
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ШЕ 


I'M ROLLING 


The computer's roll, however, results in a two and a “ргоап”. This scores 
no points and the dice pass to the computer. 


SCOREBOARD 
75 POINTS MEEDED TO HIM 
POINTS SCORED 


BEFORE THIS 
SERIES 


YOU HAYE 19 POINTS THIS SERIES 


CP=PAS5 DICE - R=ROLL AGAIN) 
YOUR DECISION CP OR R2 


Later in the same game, the operator rolls a 10 to start a series of rolls. 
The score was ATARI-59, operator-20 before the roll. The operator 
must now decide whether to pass the dice or risk rolling again. 
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PROGRAM LISTING 


10 REM GROAN 
15 REM COPYRIGHT 1984 DILITHIUM PRESS 


110 DIM B$(C40),C$ (40) ,Q$ (40) , PE (40) 

120 OPEN 81,4,0,"K:" 

150 A=O:H=A: T=A: BS=CHRS (140) 

160 C$s"X":BZ2-253 

200 GRAPHICS S:8ETCOLOR 2,0,0:POKE 752,1:POKE 82 

,2:PRINT СНАФ (125) :GOSUB 2080:COLOR C 

210 XS=6:YS=2 

220 GOSUB 2200:GOSUB 2100 

250 PRINT CHR$(125):PRINT "HOW MUCH NEEDED TO WI 

М": PRINT 

255 TRAP 6000 

240 PRINT "(BETWEEN 50-500 IS BEST)";:INPUT W 

250 WsINT(OD:IF М<-О THEN 230 

260 GOSUB 2080:GOSUB 2500 

270 IF Q»0.5 THEN 500 

500 T=O 

510 GOSUB 2700: T=T+R1+R2:IF Ғ>О THEN T=O 

320 IF F=2 THEN H=0 

550 GRAPHICS S:SETCOLOR 2,0,0:POKE 752,1:PRINT С 

НЕФ C125) 

535 PRINT :PRINT " YOU'RE ROLLING" 

340 P$="YOU":GOSUB 3200 

350 IF F>O THEN P$="ME":GOSUB 1560: DL=400: GOSUB 

2050:60TO 500 

260 БОБОВ 1300: IF Q$="R" THEN 310 

370 H=H+T:IF H>=W THEN 900 

500 Т=0 

510 GRAPHICS S:SETCOLOR 2,0,0:POKE 752,1:PRINT C 

HRS (125) :Б050В 2700 

520 T=T+Ri+R2:1F F»0 THEN T=0 

530 IF F=2 THEN Aso 

540 PRINT :PRINT " I'M ROLLING" 

550 P$s"I":GOSUB 3200 

560 IF F>O THEN P$-"YOU":GOSUB 1560: DL=400:GOSUB 
2050: GOTO ZOD 

570 POSITION XS,YS:GOSUB 5000 

580 IF AD=1 THEN PRINT "I'LL ROLL AGAIN" :DL=250: 

БОБОВ 2050:GOTO 510 

590 PRINT "I'LL STOP WITH THIS": A=A+T 

600 IF A>=W THEN DL=350:G0SUB 2050:G0TO 900 

610 YS=YS+2:P#="YOU":GOSUB 1560:DL=350:GOSUB 205 

0:60T0 300 

900 XS=2:YS=2:PRINT CHR$ (125) :P$="WE": T=0: GOSUB 
1010 


910 POSITION 3,16:1F A>=W THEN PRINT "I WIN — S 
KILL TRIUMPHS AGAIN" 
920 IF H>=W THEN PRINT "YOU WIN -- IT WAS SHEER 


LUCK" 
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530 IF A=W THEN PRINT CHR$(253) 

940 IF H»-W THEN BL=250:GOSUB 2000 

945 POSITION 3,18:FRINT "HOW ABOUT ANOTHER GAME 
(Y OR №) "se INPUT ОФ: ТЕ Q$z"Y" THEN 150 

550 GRAFHICS O:END 

1000 GRAPHICS O:SETCOLOR 2,0,0:POKE 752,1:PRINT 
CHR$ (125) : X82: Y8z9 

1010 FOSITION XS,YS 

1020 FOR Ј=1 TO 11:PRINT B$::NEXT J 

1030 PRINT " SCOREBOARD "; 

1040 FOR Ј=1 TO 11:PRINT B$::NEXT J:PRINT 

1050 FOR 2-1 TO 9:PRINT ВФ: : РОЅІТІОМ 35, PEEK (84) 
PRINT BS:NEXT J 

1060 FOR 1-1 TO 34:FRINT BS::NEXT J 

1080 POSITION XS+6, YS+2 

1090 PRINT Ws" POINTS NEEDED TO WIN"; 

1100 POSITION XS5+1,YS+3:FOR J=1 TO 22 

1110 PRINT "-"s:NEXT J 

1120 POSITION xXS+2,YS+4 

1130 PRINT "POINTS SCORED"; : Q=PEEK (84) : POSITION 


1155 PRINT "YOU"; :POSITION ZO,Q:PRINT "ME" 
1140 POSITION XS+3, YS+5 
1150 PRINT "BEFORE THIS"; :Q=PEEK (84) :FOSITION 22 


1155 PRINT СНКФ (18) 3 СНКФ (18) sCHRS (18) s s POGITION 
30,0: PRINT CHR (18) s CHRE (18) 

1160 POSITION XS+5, YS+6 

1170 PRINT "GERIES"s:POSITION XS+20,YS+6:PRINT H 


1180 POSITION XS+28, YS+6:PRINT А; 

1190 POSITION XS+1,YS+7:FOR dz1 TO 32 

1200 PRINT "~"s:NEXT J:FOSITION XS+2, YS+8 

1210 PRINT FP;" HAVE ";T;" POINTS THIS SERIES"; 
1220 RETURN 

1300 POSITION XS-2,YS 

1310 FRINT "(P=PASS DICE ~ R=ROLL AGAIN)" 

1320 POSITION XS-2, YS+2 

1330 PRINT "YOUR DECISION (Р OR FO"; 

1340 GET #1,0:0%=CHRS CQ) 

1350 IF Q$-"R" OR Q$-"P" THEN RETURN 

1370 GOTO 1540 

1400 FOR Y=YS-2 TO YS+2 STEF 4 

1410 FOR X=XS-2 TO X$+2:G05UB 1500:МЕХТ X 

1420 FOR X=XS+7 TO Х5+11: Б050В 1500:NEXT X:NEXT 
Y 

1430 FOR Х-Х5-2 TO xS+2 STEF 4 

1440 FOR Y=YS-2 TO YS+2:GOSUB 1500: МЕХТ Y:NEXT X 
1460 FOR X=XS+7 TO Х8%11 STEP 4:FOR Y=YS-2 TO YS 
+2 

1470 GOSUB 1500:NEXT Y:NEXT X: RETURN 

1500 POSITION X,Y:PRINT B$:RETURN 
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1520 POSITION X,Y:PRINT "G R O A N";:RETURN 

1540 POSITION X,Y:PRINT "DES P ñ I R '!";:RETUR 

N 

1560 POSITION XS,YS:PRINT "DICE FASS TO ";P$:RET 

URN 

1600 POSITION XS,YS:PRINT C$; : RETURN 

1610 POSITION XS-1,YS-1:PRINT C$; 

1620 POSITION XS+1,YS+1:PRINT C$: :RETURN 

1630 БОБОВ 1600:GO0SUB 1610:RETURN 

1640 POSITION XS+1,YS-i:PRINT C$; 

1650 POSITION XS-1,YS*1:PRINT C%;:GOSUB 1610:RET 

URN 

1660 GOSUB 1600:GOSUB 1640:RETURN 

1670 POSITION X8-1,YS8:PRINT C$;:POSITION XS*1,YS 
1680 PRINT C$;:GOSUB 1640:RETURN 

1700 POSITION Х6-1,Ү5-і:РБІМТ CHR$(9);CHR&(G2):C 

HRS (15); 

1710 POSITION XS,YS:FRINT CHR$(96); 

1720 POSITION XS-1,YG8*1 

1730 PRINT CHR$(7); CHR$ (18) : CHR$ (5) 3 : RETURN 
1800 LXsXS-L:RXzXS8*L : UYsYS-L:L Ys YS. 

1810 PLOT LX,UY:DRAWTO RX,UY:PLOT LX,LY:DRAWTO R 
X,LY 

1820 PLOT LX,UY:DRAWTO LX,LY:PLOT RX,UY: DRAWTO R 
X,LY: RETURN 

1900 PLOT X8, YS: RETURN 

1910 PLOT XS8-4,YS-S:PLOT Х5%4,Ү5%5: RETURN 

1920 GOSUB 1900:GOSUB 1910:RETURN 

1920 PLOT X8-4,YS+5:PLOT XS*4,YS8-5:GOSUB 1910:RE 

TURN 

1940 GOSUB 1900:GÜ0SUB 1930:RETURN 

1950 PLOT X$-4,YS:PLOT XS«4,YS:G0SUB 1930: RETURN 
1960 GOSUR 1940:FOR J=1 TO Z 

1970 PLOT XG8-J-1,YS-J42:PLOT XS+J+1,YS+J+2 

1980 NEXT J:FLOT XS-1,YS+3:FLOT XS,YS*3:PLOT X84 
1, YS+3 

1990 RETURN 

2000 SOUND 0,230,14,14:FOR J=1 TO BL:NEXT J:SOUN 
D O,0,0,0: RETURN 

2050 FOR Ј=1 TO DL:NEXT J:RETURN 

2080 C=2: RETURN 

2100 BL=300:GOSUB 2000 

2110 RETURN 

2150 BL=200:GOSUB 2000: RETURN 

2200 PLOT XS,YS:DRAWTO X5+#3,YS:PLOT XS, YS: DRAWTO 
XS, YS+4 

2210 PLOT XS,YS+4:DRAWTO XS+3,YS+4:FLOT XS+Z,YS+ 

2:DRAWTÜ XS+3, YS+4 

2220 PLOT XS+2,YS+2:PLOT XS+6,YS:DRAWTO XS+6, YS+ 

4 

2230 FLOT XS+6,YS:DRAWTO XS*9,YS:PLOT XS+6, YS+2: 

DRAWTO XS+9,YS+2 
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2240 PLOT XS«9,YS*1:PLOT XS+8, YS+3 

2250 PLOT XS+9,YS+4:PLOT XS+12,YS:DRAWTO XS+15,¥ 
5 

2260 PLOT XS8*12,YS8*4:DRAWTO XS+15,YS+4:FLOT XS*1 
2,Y8:DRAWTO XS+12, YS+4 

2270 FLOT XS+15,YS:DRAWTO XS+15,YS+4:PLOT XS+18, 
YS:DRAWTO XS+18,YS+4 

2280 PLOT XS*21,YS:DRAWTO XS+21,YS+4:PLOT XS+18, 
YS:DRAWTO XS+21, YS 

2290 PLOT XS*18,YS*2:DRAWTO XS+21,YS+2:PLOT X842 
4,YS:DRAWTO Х5%24,Ү5%4 

2300 PLOT X8*27,YS:DRAWTO XS+27,YS+4:PLOT XS+25, 
YS:DRAWTO XS+25, YS+2 

2:10 PLOT XS+26, YS+2:DRAWTO X8*26, YS+4: RETURN 
2500 DLs20:X-20:Y533 

2510 PRINT CHR$(125): "NOW А COIN TOSS FOR THE FI 
RST ROLL" 

2520 PRINT :PRINT "THE COIN IS IN THE AIR AND... 


2520 YsY-2:COLOR C:GOSUB 2650:GOSUB 2050 

2540 COLOR ©O:G0SUB 2650:COLOR C:GOSUB 2660: GO0SUB 
2050 

2550 COLOR O:GOÜSUB 2660:1F Y>9 THEN 2530 

2560 Y=Y+2:COLOR C:GOSUB 2650:GOSUB 2050 

2570 COLOR O:GOSUB 2650:COLOR C 

2580 COLOR O:GOSUB 2660:IF Y<33 THEN 2540 

2590 COLOR C:Y=33:GOSUB 2650:BLz50: Б050В 2000 
2600 Q=RND (1) : A$" YOU”: IF (20.5 THEN Aps" 1” 
Z610 PRINT CHR$(125):FRINT 

2620 PRINT CHRS (32) ;CHRS (32) ОФ" GET THE FIRST 
ROLL." 

2630 DL=300:GOSUB 2050:RETURN 

2650 PLOT X-2,Y:DRAWTO X+2,Y:RETURN 

20960 PLOT X,Y-2:DRAWTO X,Y-*2:RETURN 

2700 RisINT(ORND(CLO) X6) +1: R22 INT CRNDCLO X621 

2710 F=O: IF R1=1 THEN F=1 

2720 IF R2-1 THEN F=F+1 

2730 RETURN 

2800 FOR JeO TO 14:L2J/2 

2810 XS=9:YS=8+d:COLOR C:GOSUB 1800 

2820 XS=30:G0SUB 1800: COLOR 0: Х9=9: 60808 1800 

2830 Хб=50:65050В 1800:NEXT J 

2840 COLOR C:XS=9:G0SUB 1800 

2850 XS=30:G0SUB 1800: RETURN 

3000 X8-14:YGz5:6G08UB 1400: Q-R1:GÜSUB Z100 

2010 XS=23:Q0=R2:GOSUB 3100 

3020 IF Кі=1 THEN X=2:Y=YS:G05UB 1520:G0SUB 2150 
:DL=100:GOSUB 2050 

$030 IF R2=1 THEN X=27:Y=YS:GOSUB 1520:GOSUB 215 
o 

2050 IF F«2 THEN RETURN 

3060 DL=200:G0SUB 2050 

2070 X212:Y-1:GOSUB 1540: BL=Z00 
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3080 SOUND 0,230,12,14:F0R 2-1 TO В: МЕХТ J:S0UN 
D 0,0,0, 0: RETURN 

2100 ON A GOSUB 1700,1610,1620,1640,1660,1670:RE 
TURN 

5200 GOSUB 2080:GO0SUB 2800: XS=9: YS=22: G=R1:GOSUB 
3250 

2210 XS=30:Q=R2:GOSUB 3250:GOSUB 2080: COLOR C:XS 

=6 

5220 YS=2:IF F>O THEN GOSUB 2200:GOSUB 2150: 60Т0 
3240 

3230 DL=400:GOSUB 2050 

3240 GOSUB 1000:GOSUB 3000: XS=6: YS=21: RETURN 

2250 ON 0 GOSUB 1960,1910, 1920, 1930, 1940, 1950:RE 
TURN 

5000 VsA*T:IF V2-W THEN 5100 

5010 IF Ш-Н<10 THEN 5110 

5020 IF A»-H THEN СТ-Т/2%:б0Т0 5050 

5030 IF VCH THEN CTsT/35:G0TO0 5050 

5040 CT=T/30 

5050 IF RND(1)»CT THEN 5110 

5100 AD=0: RETURN 

5110 AD=1:RETURN 

6000 IF PEEK(195)=8 THEN PRINT "ILLEGAL ENTRY":T 
RAP 6000:G0TO 240 


EASY CHANGES 


1. If you wish to set the program for a fixed value of the winning 
score, it can be done by changing line 230 and deleting line 240. 
Simply set W to the winning score desired. For example: 


230 W = 100:PRINT CHR$(125) 


would make the winning score 100. (Don't forget to delete line 
240.) 

2. The rolling dice graphics display before each roll can be elimi- 
nated by deleting lines 2810, 2820, 2830, 2840 and changing lines 
2800 and 2850 as follows: 


2800 YS=22:L=7:COLOR С 
2850 XS=9:GOSUB 1800:XS —30: 
GOSUB 1800:RETURN 


This has the effect of speeding up the game by showing each dice 
roll immediately. 

3. After you play the game a few times, you may wish to change the 
“pacing” of the game; i.e., the time delays between various mes- 
sages, etc. To speed up the game try: 
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2050 DL=DL/2:FOR J=1 TO DL:NEXT J 
2055 DL=2* DL:RETURN 


To slow down the pacing, try: 


2050 DL=2 * DL:FOR J=1 TO DL:NEXT J 
2055 DL=DL/2:RETURN 


4. The color of the graphic displays can be altered by modifying line 
2080. Try: 


2080 C=1:RETURN 


to see the effect. 

5. As currently written, the program should fit in a 16K ATARI 400 
(see Appendix 1). If it doesn't, however, it can be made to squeeze 
into this system configuration by: implementing Easy Change #2 
above; deleting lines 2210 through 2310; deleting lines 2540 
through 2590; and adding 


2200 RETURN 
2500 REM 
2530 DL —2000:GOSUB 2050 


These changes remove some of the programs fancy effects but do 
not materially change the performance of the game. 


MAIN ROUTINES 


110- 160 Initializes constants. 

200- 270 Initial displays. Gets winning score. 

300- 370 Human rolls. 

500- 610 ATARI rolls. 

900- 950 Ending messages. 
1000-1220 Displays scoreboard 
1300-1370 Asks user for re-roll decision. 
1400-1470 Draws scoreboard dice outline. 
1500-1560 Subroutines to print various messages. 
1600-1730 Draws scoreboard dice faces. 
1800-1820 Draws graphics dice outline. 
1900-1990 Draws graphics dice faces. 
2000-2150 Delay loops and buzzer tone control loops. 
2200-2310 Draws graphics "groan." 
2500-2660 Performs coin toss. 
2700-2730  Determines dice roll. 
2800-2850 Controls graphics dice rolling. 
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3000-3100 Controls scoreboard display. 
3200-3250 Subroutine to control scoreboard and dice faces. 
5000-5110 ATARI’ strategy. Sets AD=0 to stop rolling or AD=1 


to continue rolling. 
6000 Input error trap. Display error message and try again. 
MAIN VARIABLES 
A Previous score of ATARI. 
H Previous score of human. 
T Score of current series of rolls. 
B$ String of one blank character. 
C$ String of one asterisk. 
С Graphics color. 
XS, YS Horizontal, vertical reference print position. 
w Amount needed to win. 
Q Work variable. 
R1, R2 Outcome of roll for die 1, die 2 
F Result of roll (02no frown, 1=one frown, 2=double 
frown). 
DL Delay length. 
BL Buzzer length (length of tone generation). 
P$ String name of current roller. 
Q$ Work string variable. 
AD ATARI strategy flag (0 = stop rolling, 1 — roll again). 
J, K Loop indices. 
X,Y Horizontal, vertical print position. 
L Half length of a die side. 
LX, RX Left, right position of a die face. 
UY, LY Upper, lower position of a die face. 
V Score ATARI would have if it passed the dice. 
CT Cutoff threshold used in ATART'S built-in strategy. 
SUGGESTED PROJECTS 


1. The computer's built-in strategy is contained from line 5000 on. 
Remember, after a no-frown roll, the ATARI must decide whether 
or not to continue rolling. See if you can improve on the current 
strategy. You may use, but not modify, the variables A, T, H, and 
W. The variable AD must be set before returning. Set AD=0 to 
mean the ATARI passes the dice or AD=1 to mean the ATARI 
will roll again. 


124 Basic Programs for the Atari 


2. Ask the operator for his/her name. Then personalize the messages 
and scoreboard more. 

3. Dig into the workings of the graphics routines connected with the 
dice rolling. Then modify them to produce new, perhaps more 
realistic, effects. 


JOT 


PURPOSE 


JOT is a two-player word game involving considerable mental 
deduction. The ATARI will play against you. But be careful! You will 
find your computer quite a formidable opponent. 

The rules of JOT are fairly simple. The game is played entirely 
with three-letter words. All letters of each word must be distinct — no 
repeats. (See the section on Easy Changes for further criteria used in 
defining legal words.) 

To begin the game, each player chooses a secret word. The re- 
mainder of the game involves trying to be the first player to deduce 
the other's secret word. 

The players take turns making guesses at their opponents word. 
After each guess, the asker is told how many letters (or hits) his guess 
had in common with his opponent' secret word. The position of the 
letters in the word does not matter. For example, if the secret word 
was "own," a guess of ^who" would have two hits. The winner is the 
first person to correctly guess his opponents secret word. 


HOW TO USE IT 


The program begins with some introductory messages while ask- 
ing you to think of your secret word. It then asks whether or not you 
wish to make the first guess. This is followed by you and the ATARI 
alternating guesses at each other's secret word. 
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After the computer guesses, it will immediately ask you how it did. 
Possible replies are 0, 1, 2, 3, or R. The response of R (for right) 
means the ATARI has just guessed your word correctly —a truly 
humbling experience. The numerical replies indicate that the word 
guessed by the ATARI had that number of hits in your secret word. A 
response of 3 means that all the letters were correct, but they need to 
be rearranged to form the actual secret word (e.g., a guess of “EAT” 
with the secret word being “TEA”). 

After learning how it did, the computer will take some time to 
process its new information. If this time is not trivial, the ATARI will 
display the message: "TM THINKING" so you do not suspect it of 
idle daydreaming. If it finds an inconsistency in its information, it 
will ask you for your secret word and then analyze what went wrong. 

When it is your turn to guess, there are two special replies you can 
make. These are the single letters S and Q. The S, for summary, will 
display a table of all previous guesses and corresponding hits. This is 
useful as a concise look at all available information. It will then 
prompt you again for your next guess. The Q, for quit, will simply 
terminate the game. 

When not making one of these special replies, you will input a 
guess at the computer's secret word. This will be, of course, a three- 
letter word. If the word used is not legal, the computer will so inform 
you. After a legal guess, you will be told how many hits your guess 
had. If you correctly guess the computers word, you will be duly 
congratulated. The ATARI will then ask you for your secret word and 
verify that all is on the “up and up." 
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SAMPLE RUN 


Ju T 
-43Т A MOMENT PLEASE 


THANKS, МОН LET'S EACH THINK 
JF OUR SECRET WORD 


(ТНІЗ TAKES МЕ A WHILE 


I'VE ALMDST GOT IT 
зк. DO YOU WANT TD GO FIRST >м 


The player and the computer each select their secret words. The com- 
puter is given the first guess. 


ІТНІЗ TAKES ME A WHILE 
I'VE ALMDST GOT IT 
Oe, DO YOU WANT ТО 50 FIRST >м 


мү GUESS ІЗ -- FLY 
нон DID I DO (8-5 OR R2?1 


I'M THINKING 


YOUR GUESS (ОН 5 OR QJ) ?5AÀT 
НО OF HITS Ізі 


MY ülE55 ІЗ -- LEG 
HOW DID I 00 (8-5 OR R2?98 


5 OR 0) ?LIE 


(0-3 OR R)?8 


FOUR GUES3 (ƏR 5 DR Q) ?5ІРЕШ 


The computer and player exchange the first few guesses and their results 
with each other. 
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Later in the same game, the player requests a summary before making a 
guess. The computer, however, guesses correctly to win the game. After 
revealing its secret word, the computer offers another game but the 
player has had enough. 


PROGRAM LISTING 


10 REM JOT 

19 REM COFYRIGHT 1984 DILITHIUM PRESS 

140 М=25: №406 

150 DIM AS(4K(N+4)) ,б1іФ(АаЖМ) ,G2$ COXMD ,H3 (M) ,H2 (M 
XXE (40) ,Ut (40),М%С5),М16(1),М2%(1),М5%(1)0,Р%(5 
) 

200 G1-0:6G2z0 

210 LN 

250 PRINT СНКФ (1295) :РОЗІТІОМ 14,FEEIK (34) :FRINT " 
ЈО T'":PRINT 

260 FRINT "JUST А MOMENT FLEASE .....":GOSUB 500 
O:Q=INT (RND (1) ЖМ) +1 : PRINT 

270 FRINT "THANKS, NOW LET'S EACH THINK":PRINT " 
Or OUR SECRET WORD" 

230 PRINT :FRINT "(THIS TAKES ME А WHILE ...)" 
290 508508 2200:M$zAt((OXS,QXx-2):PRINT :PRINT "ОК 


4 4 

200 PRINT "DO YOU WANT TO GO FIRST "::INFUT Q$ 
SOS IF @Ф="" THEN 530 

210 IF @$(1,1)="N" THEN 600 

320 IF Q@8(1,1)="Y" THEN 500 

220 ЕКІМТ : PRINT "kk YES OR NO PLEASE XX":PRINT 
БОТО зоо 

200 PRINT :PKINT "YOUR GUESS (OR S OR QD “33 INPU 
T P$:IF РФ= "6" THEN GOSUB 1000:G0TO Sao 
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510 IF P$="Q" THEN 3210 
520 IF РФ=МФ THEN G1=G1+1:61% (61%3,6143+2) =РФ:Ні 
(61) ч9:60Т0 3400 
550 GOSUB 1800:ІҒ FzO THEN PRINT "X THAT'S NOT А 
LEGAL WORD ~ RETRY *":GOTO 500 
540 Q$zM$:GO0SUB 24600:Q$=P$:GOSUB 1500 
$550 PRINT "% OF HITS IS "0 
$60 651=61+1:61%Ф(61ж5,61ж35+2) 20$:H1(G1)2Q 
570 IF G1zM THEN 3600 
600 0%-А%(1 X3,LX542) 162262*1:G2$ (62K 5, G2K5+2) 20$ 
610 PRINT :PRINT "MY GUESS IS -— "a$ 
E20 PRINT "HOW DID I DO (0-3 OR R)"3: INPUT P$ 
625 IF P$z"" THEN 610 
630 РФ=РФ (1,1) 
640 IF P$z"R" THEN H2(62)=9: GOTO 3200 
645 IF РФ="0" OR РФш"1" OR P$s"2" OR P$="3" THEN 
660 
650 PRINT "kk BAD ANSWER жж": СОТО 610 
660 P=VAL (PS): IF L»100 THEN PRINT :PRINT "I'M TH 
INKING ..." 
670 Н2 (52) =P: 650508 BOO 
680 GOTO 500 
BOO Q$=62$ (G23, G2k3+2) : H=H2 (62) : Ј=0: 608068 2600: 
L-L-1:1F L41 THEN 900 
B10 J=J+1: IF ЈУ. THEN 1500 
820 O$=AS (J*5,5%3+2) :GOSUB 1500 
30 IF Q=H THEN 810 
B40 AsJ:BsL:GUSUB 2400:L=L~-1 
650 IF L«X1 THEN 900 
860 IF Lo=J THEN 820 
870 RETURN 
900 PRINT :PRINT "жж SOMETHING'S WRONG xx" 
910 PRINT :PRINT "XX WHAT’S YOUR SECRET WORD";: 
МРОТ P$:GOSUB 1800 
920 IF F-O THEN PRINT :PRINT "* ILLEGAL WORD -- 
I HAD NO CHANCE x":GOTO 1200 
730 PRINT :РКІМТ "*& YOU GAVE A BAD ANSWER SOMEW 
HERE Xx" 
940 PRINT "ЖЖ CHECK THE SUMMARY Xk":GOSUB 1000 
950 GOTO 1200 
1000 PRINT :Q-6G1:1F G2>61 THEN Q=G2 
1010 IF Q=0 THEN PRINT "xx NO GUESSES YET XX":RE 
TURN 
1020 FOR J=1 TO 36:PRINT "—"::NEXT J:PRINT "—" 
1030 PR=PEEK (84) :PRINT “YOUR GUESSES"; 
1040 POSITION 17,Рк:РКІМТ "SUMMARY": 
1050 POSITION 27,PK:PRINT "MY GUESSES": PK=PEEK (8 


1060 PRINT "WORD"; :POSITION 9,РК:РКІМТ "HITS";:F 
OSITION 27,PK:PRINT "WORD HITS" 

1070 FOR J=1 TO Q:FKzsPEEK(BA):K-1: IF J59 THEN K= 
о 

1080 IF 2>51 THEN POSITION 19+K,PK:PRINT Ј; : РОЗІ 
TION 28,PK 
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1085 IF 4>61 THEN РКІМТ G2$(0JXS,.J*242): : POSITION 
34,PK:PRINT H2 6J): GOTO 1110 

1090 IF J2G2 THEN PRINT CHR$(S2):G61$ (GXZ,]*242); 
POSITION 10,PK 

1095 IF 4952 THEN РКІМТ НІ (Ј) з: РОЅІТІОМ 194K, FE: 

PRINT J:G60TO 1110 

1100 PRINT CHR$(S2)0:G1$(QJKZ,JX242)0: :POSITION 10, 

PE:PRINT Н1(592:РОБІТІОМ 194K, РК 

1105 PRINT J::POSITION 28,РК:РКІМТ G2$((IX3,J]*242 
):5: POGITION 54,РКЕРКІМТ H2(J) 

1110 NEXT J:RETURN 

1200 PRINT :FRINT "HOW ABOUT ANOTHER GAME":: INPU 

T A$ 

1205 IF Q$-"" THEN 1230 

1210 IF $(1,1)-"Y" THEN 200 

1220 IF (0$(1,1)-"N" THEN GRAPHICS O:END 

1250 PRINT :PRINT "Xx YES OR NO PLEASE жж": GOTO 

1200 

1500 РФ=0% (1,1): 0=0: GOSUB 1600 

1510 P$=Q% (2,2) : 506808 1600 

1520 P$=0$(3,3)sGOSUB 1600: RETURN 

1600 IF РфчМ1% OR P#=M2% OR РФчМ5% THEN Q=0-+1 

1610 RETURN 

1800 Fo 

1810 FOR 4-1 ТОМ 

1820 IF AS$(OIXS,JX*X2-2)-F$ THEN Ғ-1:КЕТИКМ 

1850 NEXT J:RETURN 

2200 FOR A=N TO 100 STEP —-1:BzINT(RND(1)X*A)-41 

2210 БОБОВ 2400:NEXT А 

2220 PRINT :PRINT "І?УЕ ALMOST GOT ІТ..." 

2250 FOR A=99 ТО 2 STEP -1:B2INT (КМО (1) ЖА) +1 

2240 GOSUB 2400: NEXT A: RETURN 

2400 QS=AS (BES, BKS+2) : АФ CBXS, BKS+2) =AS (AKT, AKS+2 

> s AS CAS, AK3+2) <0%: RETURN 

2600 М1%6ч0%5(1,1):М2%6:426 (2,2) 

2610 M3$=Q$ (3,3) : RETURN 

3000 RESTORE FOR P=1 TO NiPX=F*3:READ XX#s AS (FX 
з РХ+2) =ХХФ: NEXT P: RETURN 

5200 PRINT :PRINT "IT SURE FEELS GOOD" 

2210 FRINT :FRINT "MY WORD WAS -- "M$ 

3220 GOTO 1200 ` 

2400 PRINT :FRINT "CONGRATULATIONS - THAT WAS IT 
” PRINT 

2410 PRINT "WHAT WAS YOUR WORD";: INFUT P$:GOSUB 
1800: J3=1 

2420 IF F=O THEN PRINT :FRINT "kk ILLEGAL WORD - 
I HAD NO CHANCE жж": БОТО 1200 

54:20 IF ASOJTXS.JXKZS42)zFP$ THEN PRINT ;PRINT "NICE 
WORD":GÜTO 1200 

5440 J=J+1:IF 44-4 THEN 3430 

S490 PRINT :FRINT "kk YOU MADE AN ERROR SOMEWHER 

E Xk":PRINT "жж CHECK THE SUMMARY xx" 

3460 GOSUB LOCO: GOTO 1200 
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5600 FRINT :PRINT "kk SORRY, I'M OUT OF MEMORY Ж 
X" :PRINT 

5610 PRINT "MY WORD WAS ~ ":M$:GOTO 1200 
H000 DATA ACE, ACT, ADE, ADO, ADS, AFT, AGE 
5010 DATA AGO, AID, AIL, AIM, AIR, ALE, ALF 
5020 DATA AND, ANT, ANY, APE, APT, ARC, АКЕ 
SOXO DATA ARE, ARM, ART, ASH, ASK, ASF, ATE 
5040 DATA AWE, AWL, AXE, AYE, BAD, BAG, BAN 
S050 DATA BAR, BAT, BAY, BED, BEG, BET, RID 
5060 DATA BIG, BIN, BIT, BOA, BOG, BOW, BOX 
5О70 DATA BOY, BUD, BUG, BUM, BUN, BUS, BUT 
5080 DATA BUY, BYE, САВ, CAD, CAM, CAN, CAP 
5090 DATA CAR, CAT, сов, COD, COG, CON, соғ 
5100 DATA COT, COW, соу, CRY, CUB, CUD, CUE 
5110 DATA CUP, CUR, CUT, DAB, DAM, DAY, DEN 
5120 DATA DEW, DIE, DIG,DIM,DIN, DIF, DOE 
S130 DATA DOG, DON, рот, DRY, DUB, DUE, DUG 
5140 DATA DYE, DUO, EAR, EAT, EGO, ELK, ELM 
5150 DATA END, ELF, ERA, FAD, FAG, FAN, FAR 
5160 DATA FAT, FED, FEW, FIG, FIN, FIR, FIT 
5170 DATA FIX,FLY, FOE, FOG, FOR, FOX, FRY 
S180 DATA FUN, FUR, БАР, GAS, GAY, GEM, GET 
5190 DATA GIN, GNU, GOB, GOD, GOT, GUM, GUN 
5200 DATA GUT, GUY, БУР, HAD, HAG, HAM, HAS 
5210 DATA HAT, HAY, HEN, НЕХ, НІ, НІМ, HIF 
5220 DATA HIS,HIT, HER, HEM, HOE, HOG, HOP 
5230 DATA HOT, HOW, HUB, HUE, HUG, HUM, HUT 
5240 DATA ICE, ICY, ILE, INK, IMP, ION, IRE 
E250 DATA IRK, ITS, IVY, JAB, JAR, JAW, JAY 
5260 DATA JOB, JOG, JOT, JOY, JUG, JAG, JAM 
5270 DATA JET, JIB, JIG, JUT, KEG, KEY, KID 
§280 рата KIN, KIT, АВ, LAD, LAG, LAF, LAW 
DATA LAY,LAX,LED,LEG,LET,LID,LIE 
рата LIP,LIT,LOE, LOG, LOF, LOT, LOW 
DATA LYE,MAD, MAN, MAF, MAR, MAT, MAY 
рата МЕМ, MET, MID, МОВ, МОР, МОМ, MJD 
DATA МІХ, MUG, NAB, NAG, МАР, NAY, NET 
DATA МЕМ, NIL, МІР, МОЮ, МОТ, МОК, NOW 
DATA NUT, DAF, ОАК, OAR, ОАТ, ODE, OIL 
DATA OLD, ONE, ОРТ, ОКЕ, DUR, OUT. OVA 
DATA OWE, OWL, OWN, PAD, PAL , РАМ, PAR 
DATA PAT, FAW, PAY, PEA, PEG, PEN, PET 
190 DATA PEW, PIE, РІБ, РІТ, РҮ, РОЮ, РОТ 
5400 рата POX, РЕК, РІМ, РКО, PRY, РОВ, PUN 
5410 DATA PUS, PUT, RAG, RAM, КАМ, RAF, КАТ 
5420 DATA RAW, RAY, RED, КІВ, КІЮ, КЕМ, RIG 
5420 DATA RIM,RIF, ROB, ROD, ROE, ROT, ROW 
5440 DATA RUE, RUE, RUG, RUM, RUN, RUT. RYE 
5450 DATA SAD, SAG, SAF, SAT, SAW, SAY, SET 
5460 DATA SEW, SEX, SHY, SEA, SIN, SHE, SIP 
5470 DATA SIR,SIT,SIX, SEI, SKY, SLY, ЗОВ 
5480 DATA SOD, SON, SOW, SOY, SPA, SPY, STY 
5490 DATA SUE, SUM, SUN, TAB, TAD, TAG, ТАМ 
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S500 рата TAF, TAX, TAR, TEA, TEN, THE, THY 
S510 DATA TIC, TIE, TIN, TIF, TOE, TON, TOF 
S570 DATA TOW, TOY, TRY, TUE, TUG, TWO. URN 
S530 DATA USE, UPS, VAN, VAT, VEX, VIA, VIE 
5540 DATA VIM, VOW, YAK, YAM, YEN, YES. YET 
5550 DATA YOU, WAD, WAG, WAN, WAR, WAS, WAX 
S560 DATA WAY, WEE, WED, WET, WHO, WHY, WIG 
5570 DATA WIN, WIT, WOE. WON, WRY, ZIF,FIB 


EASY CHANGES 


pi 


. It is fairly common for players to request a summary before most 
guesses that they make. If you want the program to automatically 
provide a summary before each guess, change line 500 to read: 


500 GOSUB 1000:PRINT:PRINT 
“YOUR GUESS (ОК Q)”;:INPUT P$ 


N 


. The maximum number of guesses allowed, M, can be changed in 
line 140. You may wish to increase it in conjunction with Sug- 
gested Project 2. You might decrease it to free some memory 
needed for other program additions. The current value of 25 is 
somewhat larger than necessary. An actual game almost never goes 
beyond 15 guesses. To set M to 15, change line 140 to read 


140 M=15:N=406 


3. Modifying the data list of legal words is fairly easy. Our criteria for 
legal words were as follows: they must have three distinct letters 
and not be 


— proper names 

~— abbreviations 

— interjections (like “ugh,” hey,” etc.) 

—specialized words (like “ohm,” “sac,” “yaw,” etc.) 


In line 140, N is set to be the total number of words in the data list. 

The data list itself is from line 5000 on. 

To add word(s), do the following. Enter them in data statements 
after the current data (use line numbers larger than 5570). Then 
redefine the value of N to be 406 plus the number of new words 
added. For example, to add the words “ohm” and “yaw” into the 
list, change line 140 to read 


140 M=25:N=408 
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and add a new line 
5580 DATA OHM,YAW 


To delete word(s), the opposite must be done. Remove the words 
from the appropriate data statement(s) and decrease the value of N 
accordingly. 


MAIN ROUTINES 


140- 150 Defines variables, dimensions arrays. 

200- 330 Initializes new game. 

500- 570 Human guesses at the computer's word. 

600- 680 ATARI guesses. 

800- 870 Evaluates humans possible secret words. Moves them 

to the front of A$ array. 

900- 950 Processes inconsistency in given information. 
1000-1110 Displays the current summary table. 
1200-1230 Inquires about another game. 

1500-1610 Compares a guess with a key word. 
1800-1830 Checks if input word is legal. 
2200-2240 Shuffles A$ array randomly. 


2400 Swaps elements A and B in the A$ array. 
2600-2610 Breaks word Q$ into separate letters. 
3000 ЕШ A$ array from data. 


3200-3220 Post-mortem after ATARI wins. 
3400-3460  Post-mortem after human wins. 


3600-3610 Error routine — too many guesses. 
5000-5570 Data. 


MAIN VARIABLES 

N Total number of data words. 

M Maximum number of guesses allowed. 

A$ String array holding data words. 

G1$, String arrays of humans, computer's guesses. 

G2$ 

H1,H2 Arrays of humans, computers hits corresponding to 
G1$, G2$. 


G1,G2 Current number of human’s, computer's guesses. 
M$ Computers secret word. 
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МІ8, First, second, and third letters of a word. 


P$,Q$, String temporaries and work variables. 


Current number of humans possible secret words. 
Flag for input word legality. 
Number of hits in last guess. 


,B A$ array locations to be swapped. 


Formatting variable for the summary display. 


PK Current row for printing. 


SUGGESTED PROJECTS 


1. 


N 


о 


Additional messages during the course of the game сап personify 
the program even more. After the ATARI finds out how its last 
guess did, you might try an occasional message like one of these: 


JUST ASI THOUGHT... 
HMM, I DIDN'T EXPECT THAT... 
JUST WHAT I WAS HOPING TO HEAR... 


The value of L is the number of words to which the computer has 
narrowed down the human' secret word. You might check its value 
regularly and, when it gets low, come out with some- 
thing like 


BE CAREFUL, I'M CLOSING IN ON YOU. 


. Incorporate a feature to allow the loser to continue guessing at the 


other's word. The summary display routine will already work fine 
even if G1 and G2 are very different from each other. It will display 
a value of “9” for the number of hits corresponding to the correct 
guess of a secret word. 


.Incorporate the legalization of words with repeat letters; i.e., 


make such words legal as both possible secret words and possible 
guesses. This involves compiling such a word list, adding it to the 
data, and modifying the program to allow the new kind of words. 


OBSTACLE 


PURPOSE 


This program allows you and a friend (or enemy) to play the game 
of OBSTACLE, an arcade-like game that's one of our favorites. A 
combination of physical skills (reflex speed, hand-to-eye coordina- 
tion, etc.) and strategic skills are needed to beat your opponent. Each 
game generally takes only a minute or two, so you'll want to play a 
match of several games to determine the better player. 


HOW TO USE IT 


The object of the game is to keep moving longer than your oppo- 
nent without bumping into an obstacle. When the program starts, it 
asks in turn for the name of the player on the left and on the right. 
The names can be up to eight characters long. Then it displays the 
playing field, shows the starting point for each player, and tells you to 
press any key to start. Pressing the ESCAPE or Q key ends the 
game. 

After a key is pressed, each player begins moving independently in 
one of four random directions—up, down, left, or right. As each 
player moves, he or she builds a ^wall" inside the playing field. The 
computer determines the speed of the move; the player can only 
control his own direction. The players can change direction in one of 
eight directions as shown in the following Figure: 
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Mo hn Ye L 
[s] D]. El EI e] F] 


mk a ЫНЫ s sN 


[=] [s] [s] ЕЕ 
"ab d T ak dm. 


Left Player Right Player 


Arrows Indicate Direction 
of Motion 


Find these keys on the ATARI keyboard and you will see the logic 
behind these choices. 

The first time either player bumps into the wall surrounding the 
playing field or the obstacle wall built by either player, he loses. 
When this happens the program indicates the point of impact for a 
few seconds and displays the name of the winner. Then the game 
starts over. 

The strategic considerations for this game are interesting. Should 
you attack your opponent, trying to build a wall around him that he 
must crash into? Or should you stay away from him and try to make 
efficient moves in an open area until your opponent runs out of room 
on his own? Try both approaches and see which yields the most 
success. 

Be aware that if you plan a move properly, there are ways to cross 
over certain obstacles. It's not hard to cross a diagonal obstacle when 
moving diagonally, for example. 

When pressing a key to change direction, be sure to press it 
quickly and release it. Do not hold a key down — you might inhibit the 
computer from recognizing a move your opponent is trying to make. 
Once in a while, only one key will be recognized when two are hit at 
once. 
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SAMPLE RUN 


OF PLAYER ON LEFT ?TOM 
NAME OF PLAYER ON RIGHT ?PHILB 


The program starts off by asking for the names of the two players. 


PHIL 
HIN3-8 
АМ? КЕТ TO START, П TO QUIT 


The program draws the playing field and waits for a key to be pressed. 
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WON 1 GAMES 
WON 9 GAMES 


The program starts both players moving in random directions. Phil (on 
the right) doesn’t change direction soon enough and crashes into the wall, 
making Tom the winner. 


PROGRAM LISTING 


10 REM OBSTACLE 

19 REM COPYRIGHT 1984 DILITHIUM FRESS 

зо DIM AC7O) , ANS (8), ВМФ (8), R$ (10) , XX6 (10) 

зо GOSUBR 1200 

120 GOSUB 600 

125 GRAPHICS S:SOUND 0,0,0,0 

130 IF ЕМ(АМФ) <5 THEN PRINT АМФ: CHRS (127) 5 CHRS ( 
1237) ;CHRS (127) ; СНКФ (127) { ВМФ: GOTO 140 

155 PRINT ANS; CHRS (127) {СНК (127) s CHR (127) : ВМФ 
140 PRINT "WINS-":L: CHR$(t)I27): CHR$ (127) ; CHRS (127 
): "WINGz";M 

150 FRINT "FRESS ANY KEY TO START, 0 TO QUIT" 
135 Z=1:F=764:S$=255: T=40 

160 AX=15: АҮ=20: BX=65: BY=20: A=1: B=2 

145 E=1:AD=INT (4XRND (1) )+1:BD=INT CAXRND C122 +1 
170 GOSUB 950:GOSUB 900 

179 PORE F,$ 

180 C-FEEK(F):IF С>128 THEN 180 

190 PORE F,S 
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195 
200 
210 
215 
220 
250 
235 
240 
245 
250 
240 
270 
280 
290 
zoo 
510 
220 
330 
400 
410 
415 
420 
450 
440 
450 
460 
470 
490 
600 
610 
620 
зо 
e30 
700 
710 
D о, 
720 
730 
740 
750 
760 
770 
780 


IF C28 QR C=47 THEN GRAFHICS О: ЕМр 
GOSUB 900 

X=AX: Y=AY:D=AD: GOSUB 1000 

IF Ар>8 THEN AD=AD-8 
ARZzR:AXzX:AYzY 

X=BX: YBY:DzBD:GOSUB 1000 

IF BD»28 THEN BD=BD-8 

BRzR: BXzX: BYzY 

IF AR=1 OR BR=1 THEN 400 

GOSUB ооо 

C-PEEK(F):POKE Ғ,5 

IF Cz255 OR C570 THEN 210 

JJ=ñ (C) 

IF JJ=0 THEN 210 

IF JJ=17 THEN BD=BD+8:GOTO 210 
IF JJ=18 THEN AD=AD+8:G0TO 210 
IF JJ«9 THEN ADzJJ:GOTO 210 

IF JJ58 THEN BD=JJ-8:G0TO 210 
GOSUB 700: X=AX: Y=AY 

IF AR=1 THEN 420 

X=BX: Y=BY 

FOR J=1 TO 100 

COLOR Z:FLOT X,Y 

FOR К=1 TO 10:NEXT E 

COLOR O:PLOT X,Y 

FOR К=1 ТО 10:NEXT КЕ 

NEXT J 

GOTO 125 

GRAPHICS О:РКІМТ "OBSTACLE": PRINT 
PRINT "NAME OF PLAYER ON LEFT  ":;:INPUT ANS 
PRINT 


PRINT "NAME OF PLAYER ON RIGHT "š: INPUT ЕМФ 
RETURN 


PRINT 

SOUND ©,100,10,10:FOR J=} TO 200:NEXT J:SOUN 
0,0,0 

IF АК«О OR ВК=0 THEN 740 

PRINT "YOU BOTH LOSE! !!!!":RETURN 


R$-AN$:1F AR=1 THEN R$-BN$ 

IF RS=ANS THEN L=L+1 

IF K$-BN$ THEN M=M+1 

PRINT R$;" WING!!!" 

PRINT AN$;" HAS WON ":L;" GAMES":PRINT BN$;" 


HAS WON ";M;" GAMES" 


790 
9oo 
910 
915 
920 
940 
550 


RETURN 

COLOR AsFLOT AX,AY 
COLOR B:PLOT BX, BY 
FOR J=1 TO 100:NEXT J 
RETURN 

GRAPHICS Š 

COLOR E 
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960 PLOT О, о: DRAWTO 79,0: DRAWTO 79, 59: DRAWTO 0,3 
9: DROAWTO O,1:DRAWTO 78,1 

580 DRAWTO 78,38: DRAWTO 1,38: DRAWTO 1,1 
990 RETURN 

1000 ON D GOTO 1010, 1020, 1030, 1040, 1050, 1040, 107 
O, 1080, 1090,1100, 1110, 1120,1130,1140,1150,1160 
1010 YzY-1:GOTO 1200 

1020 YzY«1:GOTO 1200 

1030 XsX-1:GOTO 1200 

1040 X=X+1:GOTO 1200 

1050 YzY-1: XzX-1:GO0TO 1200 

1060 YsY-1:XsX41:GO0TO 1200 

1070 YzY*1s:XzX*1:GOTO 1200 

1080 Y=Y+1:X=X-1: 60T 1200 

1090 YzY-2:GO0TO 1200 

1100 YzY«2:GOTO 1200 

1110 XzX-2:GOTO 1200 

1120 X=X+2:GOTO 1200 

1130 YzY-2: XzX-2:GOTO 1200 

1140 Y=Y-2:X2X+2:G0TO 1200 

1150 Y=Y¥+2: X=X+2:GOTO 1200 

1160 YzsY«2:XzX-2:60TO0 1200 

1200 LOCATE X,Y,W 

1210 RxO:IF Ы<>0 THEN К=1 

1220 RETURN 

1300 FOR JzO TO 70:4(J) zO:NEXT J 

1310 А(47) =5:А (46) =1:А (42) =6 

1320 А (635) =5:А (58) =4:А (23228 

1330 0022) =2:4(18) =7:А (10) 214 

1340 А (2) =12:А C58) =15:А (54) =10 

1550 А052) =16:А (5) 211:0(132213 

1360 А (8) =9 

1370 RETURN 


EASY CHANGES 


1. To speed the game up, change the 100 in line 915 to a 50 or so. To 
slow it down, make it 150 or 200. 


2. To make both players always start moving upward at the beginning 
of each game (instead of in a random direction), insert the follow- 
ing statement: 


168 AD=1:BD=1 


To make the players always start off moving toward each other, use 
this statement instead: 


168 AD=4:BD=3 
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3. To change the length of time that the final messages are displayed 
after each game, modify line 420. Change the 100 to 50 (or so) to 
shorten it, or to 150 to lengthen it. 


MAIN ROUTINES 


10- 170 


Initializes variables. Gets players names. Displays ti- 
tles, playing field. 


175- 200 Waits for key to be pressed to start game. Redisplays 
playing field. 
210- 250 Makes move for player A (on left side) and B (on right). 
Saves results. 
260- 330 Accepts moves from keyboard and translates direction. 
400- 490 Displays winners name. Goes back to start next game. 
600- 650 Subroutine that gets each player's name. 
700- 790 Subroutine that displays winners name. 
900- 920 Subroutine that displays each graphics character of 
each player's obstacle on the screen. 
950- 990 Subroutine that displays playing field. 
1000-1220 Subroutine that moves marker and determines if space 
moved to is empty. : 
1300-1370 Subroutine that defines key directions. 
MAIN VARIABLES 
A Array of key direction values. 


AX, AY Coordinates of player A’s current position. 
BX, BY Coordinates of player B5 current position. 


A A5 graphics color. 

B B's graphics color. 

F Peek address for reading keyboard. 
S Poke address for resetting keyboard. 
T Length of edge of playing field. 


AD,BD Current direction in which А and В are going (1=up, 
2=down, 3- left, 4 —right, etc.). 
Graphics color for edge of playing field. 
Character being read from keyboard. 


Temporary direction. 


E 
C 
X,Y Temporary position on screen. 
D 
R 


Result of move (0 okay, 1 —loser). 
АК, ВЕ Result of А5 and Вв moves (0— okay, 1 —loser). 
ANS, Names of players A and B. 
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Z Graphics color displayed when collision is made. 
LK Loop variables. 
R$ Name of winner. 


XX$ Work string. 
ІМ Player A and Вв number of games won. 


W Numeric value of LOCATE graphics character. 
JJ Direction value from A array. 
SUGGESTED PROJECTS 


1. Modify the program to let each player press only two keys —one to 
turn left from the current direction of travel, and one to turn right. 

2. Instead of a game between two people, make it a game of a person 
against the computer. Develop a computer strategy to keep finding 
open areas to move to and/or to cut off open areas from the human 
opponent. 

3. Modify the program to use the ATARI joystick controllers instead 
of keyboard keys to control player motions. 


ROADRACE 


PURPOSE 


Imagine yourself at the wheel of a high-speed race car winding 
your way along a treacherous course. The road curves unpredictably. 
To stay on course, you must steer accurately or risk collision. How 
far can you go in one day? How many days will it take you to race 
cross-country? Thrills galore without leaving your living room. 

The difficuly of the game is completely under your control. By 
adjusting the road width and visibility conditions, ROADRACE can 
be made as easy or as challenging as you wish. 


HOW TO USE IT 


The program begins with a short color graphics display. It then 
asks you for two inputs — road width and visibility. The road width (in 
characters) can be anywhere between 4 and 12. The degree of diffi- 
culty changes appreciably with different widths. A very narrow set- 
ting will be quite difficult and a wide one relatively easy. Visibility 
can be set to any of four settings, ranging from “terrible” to “good.” 
When visibility is good, the car appears low on the screen. This 
allows a good view of the twisting road ahead. When visibility is 
poor, the car appears high on the screen allowing only a brief look at 
the upcoming road. 

Having set road width and visibility, the race is ready to start. The 
car appears on the road at the starting line. A five-step starting light 
counts down to the start. When the bottom light goes on, the race 
begins. The road moves continually down the screen. Its twists and 
turns are controlled randomly. You must steer the car accurately to 
keep it on track. 
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The car is controlled with the use of two keys near the right of the 
keyboard. Pressing the plus key (+) will cause the car to move to the 
left while pressing the asterisk key (*) will cause the car to move to 
the right. These keys were chosen because they have the left and right 
arrows on them. Doing neither will cause the car to continue straight 
up. 

The race proceeds until the car goes “off the road." Turn up the 
sound on your TV and you'll hear the crash. Each such collision is 
considered to terminate one day of the race. After each day, you are 
shown the number of miles achieved that day along with the 
cumulative miles achieved for consecutive days of the race and the 
average miles per day. 

After each collision, you can proceed by pressing either C, R, or 
0. Selecting С will continue the race for another day with the same 
road conditions. Cumulative totals will be retained. R will restart the 
race. This allows changing the road conditions and initializing back 
to day one. Q simply quits the race and returns the ATARI back to 
direct BASIC. 

There are several different ways to challenge yourself with the 
program. You can try to see how far you get in a given number of 
days. You might see how many days it takes you to go a given number 
of miles—say 3000 miles for a cross-country trip. As you become 
proficient at one set of road conditions, make the road narrower and/ 
or the visibility poorer. This will increase the challenge. Different 
road conditions can also be used as a handicapping aid for two 
unequally-matched opponents. 
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SAMPLE RUN 


ROADRACE 


The program displays its logo. 


RaoaodRACE 


ROAD WIDTH C4 - 12) 
>Э 


VISIBILITY CONDITIONS 


TERRIBLE 
BaD 

FAIR 
GOOD 


1 
2 
3 
4 


VISIBILITY (1-4) 
?4 


The operator selects good visibility and а course-width of nine charac- 
ters. Now the race is ready to begin. 
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ФтФФтФФФФФФФФеФФФФФФФФФФФ%%% 


Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
Ф 
% 


The саг is on the starting line. The starting light counts down the 
beginning of the race. When the last light goes on, the race will be off and 
running. 


YOU MENT 43 MILES FOR A TOTAL ОҒ 
685 MILES ІМ 5 DAYS AND AN AVERAGE 
OF 137 MILES/DAY 


OPTIONS 
С - CONTINUE 
R RE-START 
Q - QUIT 


The operator, steering the car from the keyboard, finally crashes. A 
distance of 43 miles is obtained on this leg for a total of 685 miles in 5 
days (legs). The options for continuing are displayed while the program 
waits for the operator's choice. 
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PROGRAM LISTING 


10 REM ROADRACE š 
15 REM COFYRIGHT 1984 DILITHIUM FRESS 


110 
120 


DIM A$(40),B$(A0) , K C) RECO), NE (1) 
GRAFHICS 5:SETCOLOR 2.0,0:РОКЕ 82,0:РОКЕ 752 


.1:РОКЕ 764,255 


125 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
240 
250 
260 
270 
280 
290 
500 
510 


x 
9" aL 


330 
$40 
550 
560 
570 
580 
590 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
S10 
520 
330 


LC-0.4 
X=15:P=20:W=10: V=8: RC=1-LC:LM=4: RM=36 
MR=7:ML=é 

K (1) SCHR$ (8) :K$ (2) =CHRS (10) 

N&=CHRS (22) : BS=CHRS (22) : B$ (40) =BS: BS (2) =ВФ 
T=0:D=0:G0SUB 670 

аФ=В% 

Y=RND (O) 

IF YXLC THEN Х-Х-1:60Т0 220 

IF Y2RC THEN X=X+1 

IF X<LM THEN X=4:GOTO 240 

IF X>RM-W THEN X=RM—W 

AS (X) =CHRS (96) : AS (X+W) =CHRS (96) 
POSITION 0,0:PRINT CHR$ (157) :A% 
POSITION F,V+1:PRINT МФ; МФ 
S-PEEK(764):IF S=255 THEN 310 

IF S=ML THEN Р-«Р-1:60Т0 300 

IF S=MR THEN P=F+1 

POKE 764,255 

LOCATE P,V,A:LOCATE P+1,V, Z 

IF А<>52 OR 24232 THEN 360 

POSITION P,U:PRINT КФ 

M=M+1:T=T+1 

GOTO 180 

D-D-1:POSITION P,V:PRINT СНКФ (7) :CHR$ (6) 
POSITION P,V*1:PRINT СНАФ (4) 3 CHRS (7) 
FOR J=-14 TO O STEP 2 

SOUND Ü, 200,4, 14-ABS (J) 

SOUND 1,255, 4, 14-ABS(J) 

SOUND 2,255, 4, 14-ABS(J) 

SOUND 3, 150, 4, 14-ABS(J) 

FOR K=1 TO 15:NEXT K 

NEXT J 

FOR Ј=0 TO 14 

SOUND 0,200,4,14-J 

SOUND 1,255,4,14-J 

SOUND 2,255,4,14-J 

SOUND 3,150,4,14-d 

FOR K=1 TO SO:NEXT K 

NEXT J 

FOR J=0 TO 3:SOUND J,0,0,0:NEXT J 
POSITION 0,22:PRINT BS:PRINT BS:PRINT ВФ: РОК 


E 764,255 


540 


R$z" DAYS":1IF D=1 THEN R$=" DAY" 
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550 PRINT №; МФ; "YOU WENT"; N$; M; N$; "MILES FOR А 
TOTAL ОҒ"; МФ 

555 PRINT N$; N$: T; N$; "MILES ІМ": МФ: 0: АФ: МФ: "AND 
АМ AVERAGE" 

560 PRINT МФ: NS; "ОЕ": МФ: INTCC(CT/D) 100) /100; МФ: "M 
ILES/DAY" 

$70 PRINT BS:FRINT N$:N$:N$;"OFTIONS" 

S80 PRINT " C - CONTINUE" 

S90 PRINT " R ~ RE-START" 

600 PRINT " A ~ QUIT" 

610 POKE 764, 255 

620 S=PEEK (764): IF S=255 THEN 620 

&30 FOKE 764,255: IF S=47 THEN 660 

640 IF Sz40 THEN М=0: T=0O:D=0:GOSUB 770:GOTO 180 
645 IF $<>18 THEN 610 

656 PRINT СНЕФ (1295) : М=0: GOSUB 940:G0TO 180 

660 GRAPHICS O:POKE 82, 2:END 

670 COLOR 1 

680 X=26: Y=1 

590 FOR J=1 TO ó6:YzY-1:PLOT X,Y:FLOT X-WX*2,Y:NEX 


700 FOR 1-1 TO 6:X2X42:YsY-1:PLOT X,Y:PLOT Хен? 
.Y:iNEXT J 

710 FOR J=1 TO 12:XeX-2:YzY-1:PLOT X,Y:PLOT X+Wk 

2,Y:NEXT J 

720 FOR 1-1 TO 6:X=X+2:Y=V+i:PLOT X,Y:PLOT X+Wk2 
Y:NEXT J 

730 FOR 1-1 TO &6:YzsY*1:PLOT X,Y:PLOT X4WK2,Y:NEX 

Td 

740 X=X+W:FLOT X,Y:YzsY*1:PLOT X-1,Y:PLOT X,Y:PLO 

T X+1,Y:PLOT Х,Ү-і 

750 PRINT :FOR J=1 TO 15:PRINT N$;:NEXT J:RESTOR 

E :FOR J=1 TO @:READ K:PRINT CHRS$(O;:NEXT J 

755 DATA 210, 207, 193,196,210, 193, 195, 197 

760 FOR J=1 TO 1000:NEXT J 

770 GRAPHICS O:SETCOLOR 2,1,12:SETCOLOR 1,0,0:РО 

KE 82,2:POKE 752,1 

780 PRINT :PRINT :PRINT 

790 PRINT N$;N$;"ROADRACE" 

БОО PRINT 

810 PRINT "ROAD WIDTH (4 — 12) ":INPUT W:W=INT(W 
) 

820 IF W«4 OR W»212 THEN PRINT :PRINT "жж ILLEGAL 
ENTRY Xx":GDTO 800 

830 PRINT :PRINT :PRINT "VISIBILITY CONDITIONS" 

840 PRINT 


850 PRINT " 1 — TERRIBLE" 
860 PRINT " 2 ~ BAD" 
870 PRINT " 3 — FAIR" 


ROADRACE ме 


880 PRINT " 4 - GOOD" 

890 PRINT 

900 PRINT "VISIBILITY (1-4) ":INPUT V:V=INT(V) 
910 IF У<1 OR V>4 THEN PRINT :PRINT "жж ILLEGAL 
ENTRY ЖЖ": БОТО 890 

920 VzVX4«2 

930 POKE 82,0 

940 X-14:PzX4W/2—2 

950 AS=BS: A$ (Х) -CHR$ (95) :A$ (X+W) =CHRS (96) 

960 PRINT CHR$(125):FÜR J=1 TO 23:PRINT A%:NEXT 
J 

970 POSITION F,V:PRINT K$ 

980 POSITION 3,5:PRINT CHR$(14);CHR$(14); СНАФ (14 
) 

990 POSITION 2,6:PRINT CHR$(22);N$; CHR$ (2) 

1000 POSITION 3,7:PRINT CHR$(22);N$; CHR$ (2) 
1010 POSITION 3,8:PRINT СНКФ (22) 3 МФ; СНКФ (2) 
1020 POSITION 2,9:PRINT СНКФ (22) ; МФ: CHRS (2) 
1030 POSITION Z,10:PRINT CHR$ (22) ; МФ; CHR$ (2) 
1040 POSITION 3,11:PRINT СНАФ (13) ; СНЕФ (13) s CHRS ( 
13) 

1050 FOR К=1 TO 5 

1060 FOR 2-1 TO 200:МЕХТ J 

1070 POSITION 4,5+K:PRINT CHR$(20) 

1080 NEXT K 

1090 RETURN 


EASY CHANGES 


1. The amount of windiness in the road can be adjusted by changing 
the value of LC in line 125. Maximum windiness is achieved with 
a value of 0.5 for LC. To get a straighter road, make LC smaller. А 
value of 0 will produce a completely straight road. LC should lie 
between 0 and 0.5. To get a somewhat more winding road, you 
might change line 125 to read 


125 LC=0.45 


2. Experiment with a different color background by changing the 
value in line 670 and the SETCOLOR argument in line 770. Try 


670 COLOR 2 
770 GRAPHICS 0:SETCOLOR 2,6,12:SETCOLOR 
1,0,0:POKE 82,2:POKE 752,1 
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3. The keys which cause the car to move left and right can be easily 
changed. You may wish to do this if you are left handed or find that 
two widely separated keys would be more convenient. The 
changes are to be made in line 140. The constants that are assigned 
to the variables ML and MR control which keys will cause the car 
to move left and right respectively. To find the correct constants, 
first type in this short program: 


10 Q=PEEK (764):IF Q=255 THEN 10 
20 POKE 764,255:PRINT Q 


Run the program, then press the key you wish to use to make the 
car move left. A number will appear on the screen. This number 
will be assigned to the variable ML. Run the program again and hit 
the key you want to cause the car to move right. Assign the number 
that now appears to the variable MR. If, for example, you want 1 
to cause a left move and 9 to cause a right move, line 140 will 
become 


140 ML=31:MR=48 
4. Instead of the keyboard, a joystick can be used to control the car's 
movements. We'll assume stick 0 will be used. Now make the 
following changes to the main program: 


140 ML=11:MR=7 

270 S=STICK(0) 

280 IF S=ML THEN P-P-1 
290 IF S=MR THEN P=P+1 


The stick will now control the car. When the stick is neutral the car 
will continue straight up the road. If the stick is moved to the left, the 
car will continue to move left. If the stick is moved to the right, the 
car will continue to move right. 


MAIN ROUTINES 


110- 170 Variable initialization. 

180- 260 Draws next road segment. 

270- 350 Updates the car position. 

360- 660 Processes end of race day. 

670- 790 Routine to do initial graphics display. 
800- 930 Gets road conditions from user. 
940- 970 Initializes road. 

980-1090 Routine to display starting light. 
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MAIN VARIABLES 


Current horizontal position of car. 
Road width. 

Visibility, vertical position of car. 
Miles driven on current day. 
Number of days of the race. 

Total miles driven for whole race. 


ML, MR Peek constants to move road left, right. 
LC,RC Random value cutoff to move road left, right. 
LM, RM Leftmost, rightmost allowable road position. 


R$ Work string. 
X,Y Horizontal, vertical position of road. 
J,K Loop indices and work variables. 


A$, B$ Screen lines. 
A,Z Numeric values of LOCATE graphic characters. 


Peek argument. 


K$ String representation of car. 
N$ String of one blank character. 


SUGGESTED PROJECTS 


1. 


N 


o2 


Write a routine to evaluate a players performance after each colli- 
sion. Display a message rating him anywhere from "expert" to 
“back-seat driver." This should involve comparing his actual miles 
achieved against an expected (or average) number of miles for the 
given road width and visibility. For starters, you might use 


Expected miles 25W? + 50V — 100 


This formula is crude, at best. The coding can be done between 
lines 560 and 570. 


. Incorporate provisions for two players racing one at a time. Keep 


cumulative totals separately. After each collision, display the cur- 
rent leader and how far he is ahead. 


. Add physical obstacles or other hazards onto the road in order to 


increase the challenge. This can be done with appropriate state- 
ments after line 240. The program will recognize a collision if the 
car moves into any non-blank square. 
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WARI 


PURPOSE 


Wari is an old game with roots that are much older. Its origins go 
back thousands of years to a variety of other similar games, all 
classified as being members of the Mancala family. Other variations 
are Awari, Oware, Pallanguli, Kalah, and countless other offshoots. 

The program matches you against the computer. You are probably 
going to lose a few games before you win one—the computer plays а 
pretty good game. This may hurt your ego a little bit, since Wari is 
purely a skill game (like chess or checkers). There is no element of 
luck involved, as would be the case with backgammon, for example. 
When you lose, it's because you were outplayed. 


HOW TO USE IT 


When you start the program, the first thing it does is display the 
Wari board and ask you if you want to go first. The board is made up 
of twelve "squares" in two rows of six. Your side is the bottom side, 
numbered one through six from left to right. The computer's side is 
on the top, numbered seven through twelve from right to left. 

At the start of the game, each square has four "stones" in it. There 
is no way to differentiate between your stones and the computer's. 
They all look alike and will move from one side to the other during 
the course of play. 

The first player "picks up" all the stones in one of the squares on his 
side of the board and drops them, one to a square, starting with the 
next highest numbered square. The stones continue to be dropped 
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consecutively in each square, continuing over onto the opponent's 
side if necessary (after square number 12 comes square number 1 
again). 

If the last stone is dropped onto the opponent's side and leaves а 
total of either two or three stones in that square, these stones are 
captured by the player who moved, and removed from the board. 
Also, if the next-to-last square in which a stone was dropped meets 
the same conditions (on the opponents side and now with two or three 
stones), its stones are also captured. This continues backwards until 
the string of consecutive squares of two or three on the opponent's 
side is broken. 

Regardless of whether any captures are made, play alternates back 
and forth between the two players. 

The object of the game is to be the first player to capture 24 or 
more stones. Thats half of the 48 stones that are on the board at the 
beginning of the game. 

There are a few special rules to cover some situations that can 
come up in the game. It is not legal to capture all the stones on the 
opponents side of the board, since this would leave the opponent with 
no moves on his next turn. By the same token, when your opponent 
has no stones on his side (because he had to move his last one to your 
side on his turn), you have to make a move that gives him at least one 
stone to move on his next turn, if possible. If you cannot make such a 
move, the game is over and counted as a draw. 

During the course of the game, it's possible for a square to accumu- 
late 12 or more stones in it. Moving from such a square causes stones 
to be distributed all the way around the board. When this happens, 
the square from which the move was made is skipped over. So, the 
square moved from is always left empty. 

It takes the computer anywhere from fifteen seconds to about 
forty-five seconds to make a move, depending on the complexity of 
the board position. The word THINKING is displayed during this 
time, and a period is added to it as each possible move is evaluated in 
sequence (seven through twelve). 

Entering the word "END" instead of a square number ends the 
game. 
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SAMPLE RUN 


The program starts off by drawing the playing “board” and asking who 
should move first. The operator decides to go first. 


НА R I 
COMPUTER 
11 19 3 Ë ? CAPTURED 


COMPUTER 9 


YOU 98 


fTOUR МОЈЕ 


THIMEING... 


The program asks for the operators move. He or she moves square 
number 5. The program alters the board accordingly and begins “think- 
ing” about what move to make. 
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kk OA ROI 
COMPUTER 


19 E i ? CAPTURED 


COMPUTER 


YOU 12 


Later in the same game, the computer is about to move square 9, which 
will capture 2 or more stones and win the game. 


PROGRAM LISTING 


10 REM WARI 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 

120 Ј=1:К=1:0=14:Р=15:Е=50:0=12 

130 DIM T(Q),.Y(Q),W(Q),V(6) ,E (6), B(Q) 

135 DIM R$(10),C$ (242, D$ (40) 

140 ZB=RND(1) :Z2B=ZB/Q: ZA=0. 25+ZB: ZB=0.25-ZB:I=1: 
GOSUB 750 

150 FOR J=1 TO D:B(J)=4:NEXT J: B(F)=0:B(@) =0:MN= 
O:GÜSUE 1200:GOSUB 900 

160 GOSUB 990:PRINT "WANT TO GO FIRST"::1NFUT R$ 
165 IF LEN(R#)=0 THEN 140 

170 GOSUB 990:FRINT D$:IF R$(1,1)-"Y" THEN 250 
180 IF R#(1,1)<>"N" THEN 160 

190 GOSUB 1050:PRINT D$;D$:D$::GOSUB 1050:PRINT 
"THINKING"::GO0SUB 510 

195 IF Mzi THEN 2000 

200 GOSUB 1050:PRINT D$;:GOSUB 1050:PRINT "MY MO 
VE IS "1M 

210 FOR 1-1 TO Q:T(GD-BGD:NEXT J:GOSUB 250 

220 FOR J=1 TO Q:B(J)=T(J):NEXT J:iGOSUB 900 
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ТЭО IF B(Q)424 THEN 250 

Ю POSITION Z,22:PRINT "ЖЖ I WIN XX":GQOTO 810 

250 GOSUR 990:FRINT D$:D$:GOSUR 990:FRINT "YOUR 

MOVE "s::INFUT КФ 

299 IF R$-"END" THEN 840 

260 КФчКФ(1.19:21ІҒ КФА "1" OR КФУ" THEN 530 

265 M=VAL (R$) 

270 FOR J=1 TO Q:T(J)=E(J):NEXT J 

280 GOSUE 350: IF MzO THEN 330 

290 FOR 4-і TO Q:B(J)=T(J):NEXT J 

300 MN=MN+1:GOSUE 9oo 

$10 IF BCF)<24 THEN 190 

320 GOSUE 1050:PRINT "ЖЖ YOU WIN XX":D5$:GOTO 810 

S30 POSITION 19,19:FRINT " ILLEGAL "::FOR J=1 TO 
1000:МЕХТ J:GOTO 250 

250 IF T(M)-O THEN M=-1: RETURN 

X60 R$-"H'":IF M26 THEN R$-"C":GOTO 380 

$70 FOR J=1 TO G@:Y(J)=T(d) sNEXT J:GOTO 400 

380 FOR J=1 TO &:Y(J)=T(J+6)sY(J+&)=T(J):NEXT J 

290 YC(P)=T(Q) 2 ¥(Q) =T(P) :M-M-6 

400 С=М: Мү (С) РОК 2-1 TO Ni C=C+1 

410 IF C-P THEN C=1 

420 IF (=M THEN C-C-1:G0TQ 410 

650 Y(C)=Y(C)+1: NEXT J:Y(M)=0:L=C 

440 IF £7 QR Y(L)2>2 ОК Y(L)Z2 THEN 460 

450 ҮР) =У(Р) Y GO:YXGLD z0:L-L-1: GOTO 440 

460 SzO:FÜR J=7 TO D:Sz-zS-Y((J):NEXT J 

470 IF S=0 THEN M=-2: RETURN 

480 IF R$-"H" THEN FOR J=1 TO Q:T(J)=Y(J):NEXT J 

: RETURN 

490 FOR 2-1 TO 6:T(J)=Y(J+6):sT(J+6)=Y(J):NEXT J 

SOO T(Q)=Y(F):T(P)=Y (0) s RETURN 

510 FOR А=1 TO 6:M=A+6: IF B(M)=0 THEN ЕА) --F:G0 

TO 690 

ЕЗО FOR 2-і TO Q:T(J)-B(OD:NEXT J: GOSUB 550 

340 IF M0 THEN E(A)=-F: GOTO 690 

S50 IF T(Q) 523 THEN M=A+6: RETURN 

S60 FOR J=1 TO A:W(J)=T(J):NEXT Ј: РОК K=1 TO 6 

$70 IF T(K)2O0 THEN V(K)=F:GOTO 670 

S80 FOR 0-1 TO GsT(J)sW(GD) :NEXT J:M=K:GOSUB 550 

$90 IF М<О THEN Vik) =: БОТО 670 

600 РА=0: ЕВ=0. 09: РС=0: Р0=0: РОК J=7 TO D 

610 FB=FB+T(J):IF Т(Ј) >20 THEN FA=FA+1 

620 IF T(J)Z3 THEN FC-FC-*1 

620 TF T(J) FD THEN FD=T (49) 

640 NEXT J:FE-ZFB:FOR J=1 TO 6:FE=FE+T (J) :NEXT J 

650 FA=FA/6:FD=1-FD/FB:FC=1-FC/6: FR=FB/FE 

660 VC) 2ZAX (Ра+ғВ) +ZBX (FE+FD) € T (0) +B UP) -B (2) -T ¢ 

F) 

670 NEXT K: ECA) =F:FOR 2-1 TO 6:IF VidJo<E CA) THEN 
E(A)=V (J) 
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680 NEXT J 

690 PRINT "."3:NEXT A:M=O:FA=-F:FOR 0-1 TO 6 

700 IF E(J) SFA THEN FA=E (J) : М=Ј+6 

710 NEXT J:RETURN 

750 СФ-СНК%(18):ҒОК 1-1 TO 21:C$(J,J) =СНКФ (18): М 
EXT J 

790 D$-CHR$(OS2):FOR 2-1 TO 9: XX=LEN(DS) s DS (XX+1, 
XX*XX) =0Ф: NEXT J 

BOO RETURN 

810 PRINT "GOOD GAME" 

B40 PRINT :PRINT "DO YOU WANT TO FLAY AGAIN": IN 
PUT R$ 

B45 IF ЕМ(КФ) =0 THEN 840 

BIO IF R$(1,1)="V¥" THEN 140 

B60 IF R$(1,1)«2"N" THEN 840 

870 PRINT "SEE YOU LATER" 

880 FRINT :END 

900 POSITION 2,8 

20 FOR J=0 TO S:POSITION 4k3+3,8: PRINT B(12-J); 
:IF B(12-J)=0 THEN GOSUB 1100 

950 NEXT JsFOSITION 27,8:FRINT "COMPUTER ":B(Q) 
940 FOR Ј=0 TO Š 

950 POSITION 4XJ-2,11:PFRINT R(J*1)0::IF B(J+1)=0 
THEN GOSUB 1100 

960 NEXT J:POSITION 32,11:PRINT "YOU "s:B(F) 

970 RETURN 

790 POSITION 3,19:RETURN 

1050 POSITION 3,21:RETURN 

1100 PRINT CHR$ (32) 3: RETURN 

1200 GRAPHICS O:POSITION 16.1:FRINT "W ñ R I" 
1210 PRINT 

1220 FOSITION 9,3:PRINT "COMPUTER": PRINT 

1230 FOR Ј=0 TO S: POSITION 4x3+3,5:F RINT L2-J3:N 
EXT J 

1240 POSITION 29,5:PRINT "CAPTURED": PRINT СНКФ (3 
2): C$: POSITION 29,6:РКІМТ C$ (1,8) 

1250 PRINT :FRINT :FRINT :FRINT :PRINT :PRINT CH 
R$ (32) 3 C$: PRINT 

1260 FOR Ј=0 TO S:FOSITION 4k45+3,14:FRINT J*13::N 
EXT J 

1270 FOSITION 12,16:PRINT "YOU" 

1280 PRINT :RETURN 

2000 PRINT "NO LEGAL MOVES." 

2010 FRINT "GAME IS A DRAW." 

2020 GOTO 840 


EASY CHANGES 


1. Want a faster-moving game against an opponent who isn’t quite 
such a good player? Insert the following two lines: 
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555 GOTO 600 
665 E(A) - V(K):GOTO 690 


In the standard version of the game, the computer looks at each of 
its possible moves and each of your possible replies when evaluat- 
ing which move to make. This change causes the computer to only 
look at each of its moves, without bothering to look at any of your 
possible replies. As a result, the computer does not play as well, 
but it takes only a few seconds to make each move. 

2. If you are curious about what the computer thinks are the relative 
merits of each of its possible moves, you can make this change to 
find out. Change line 690 so it looks like this: 


690 PRINT E(A);“/”;:NEXT A:M=0:FA= —F: 
FOR J=1TO6 


This will cause the program to display its evaluation number for 
each of its moves in turn (starting with square seven). It will select 
the largest number of the six. A negative value means that it will 
lose stones if that move is made, assuming that you make the best 
reply you can. A value of negative 50 indicates an illegal move. A 
positive value greater than one means that a capture can be made 
by the computer, and it will come out ahead after your best reply. 


MAIN ROUTINES 


120- 150 Initializes variables. Displays board. 

160- 180 Asks who goes first. Evaluates answer. 

190- 220 Determines computer’s move. Displays new board 
position. 

230- 240 Determines if computer's move resulted in a win. Dis- 
plays a message if so. 

250- 300 Gets operators move. Checks for legality. Displays new 


board position. 
310- 320 Determines if operator's move resulted in a win. 
330 Displays message if illegal move attempted. 


350- 500 Subroutine to make move M in T array. 

360- 390 Copies T array into Y array (inverts if computer is 
making the move). 

400- 430 Makes move in Y array. 

440- 450 Checks for captures. Removes stones. Checks previous 
square. 


160 
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460- 470 Sees if opponent is left with a legal move. 

480- 500 Copies Y array back into T array. 

510- 710 Subroutine to determine computer's move. 

750- 800 Subroutine to create graphics strings for board display. 
810- 880 Displays ending message. Asks about playing again. 
900- 970 Subroutine to display stones on board and captured. 


1100 


Subroutine to move cursor to “YOUR MOVE?” position 
on screen. 

Subroutine to move cursor to “МҮ MOVE" position on 
screen. 

Subroutine to display one blank character. 


1200-1280 Subroutine to display Wari board (without stones). 
2000-2020 Displays message when computer has no legal move. 


MAIN VARIABLES 


Q, P, F, D Constant values of 14, 13, 50 and 12, respectively. 


T, Y, W 
У 


ЕВ 


Arrays with temporary copies of the Wari board. 

Array with evaluation values of operators six possible 
replies to computer's move being considered. 

Array with evaluation values of computers six possible 
moves. 

Array containing Wari board. Thirteenth element has 
stones captured by operator. Fourteenth has computers. 
Weighting factors for evaluation function. 

Move number. 

Operators reply. Also used as switch to indicate whose 
move it is (C for computer, H for human). 

Move being made (1-6 for operator, 7-12 for computer). 
Set negative if illegal. 

Subscript used in dropping stones around board. 

Last square in which a stone was dropped. 

Stones on opponents side of the board after a move. 
Subscript used to indicate which of the six possible com- 
puter moves is currently being evaluated. 

Loop indices. 

Work variables. 

First evaluation factor used in determining favorability of 
board position after a move (indicates computer's number 
of occupied squares). 

Second evaluation factor (total stones on computer' side of 
the board). 
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FC Third evaluation factor (number of squares with two or 
less stones). 

FD Fourth evaluation factor (number of stones in most popu- 
lous squares on computers side). 

FE Total stones on board. 

C$ String of graphics characters used to display the Wari 
board. 

D$ String of 32 blanks. 

SUGGESTED PROJECTS 

1. Modify the program to declare the game a draw if neither player 


Ww 


has made a capture in the past 30 moves. Line 300 adds one to the 
counter of the number of moves made. To make the change, keep 
track of the move number of the last capture, and compare the 
difference between it and the current move number with 30. 


. Modify the evaluation function used by the computer strategy to 


see if you can improve the quality of its play. Lines 600 through 
660 examine the position of the board after the move that is being 
considered. Experiment with the factors and/or the weighting val- 
ues, or add a new factor of your own. 


. Change the program so it can allow two people to play against each 


other, instead of just a person against the computer. 
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Section 4 


Graphics Display Programs 


INTRODUCTION TO GRAPHICS DISPLAY PROGRAMS 


The ATARI computers are amazing machines. They have very 
useful graphics capabilities in addition to their other capacities. Pro- 
grams in the other sections of this book take advantage of these 
graphics to facilitate and "spice up" their various output. Here we 
explore the use of the ATARI’ graphic capabilities for sheer fun, 
amusement, and diversion. 

Ever look through a kaleidoscope and enjoy the symmetrical 
changing patterns produced? KALEIDO will create such effects with 
full eight-point symmetry. 

Two other programs produce ever-changing patterns but with much 
different effects. SPARKLE will fascinate you with a changing shim- 
mering collage. SQUARES uses geometric shapes to obtain its pleas- 
ing displays. 

WALLOONS demonstrates a totally different aspect of the 
ATARI. This program will keep you entertained with an example of 
computer animation. 
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KALEIDO 


PURPOSE 


If you have ever played with a kaleidoscope, you were probably 
fascinated by the endless symmetrical patterns you saw displayed. 
This program creates a series of kaleidoscope-like designs, with each 
one overlaying the previous one. 


HOW TO USE IT 


There is not much to say about how to use this one. Just type RUN, 
then sit back and watch. Turning down the lights and playing a little 
music is a good way to add to the effect. 

Have a few friends bring their ATARIs over (all your friends do 
have ATARIs, don’t they?), and get them all going with KALEIDO at 
once. Let us know if you think you have set a new world’s record. 
Please note that we will not be responsible for any hypnotic trances 
induced this way. 
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SAMPLE RUN 


One of the patterns generated by the KALEIDO program. 


PROGRAM LISTING 


10 REM KALEIDO 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 

20 GOTO 100 

ЕО COLOR R(O):FLOT XX2,YX4: DRAWTO Xk2, YX43:FLOT 
XX2-1,YX4-3: DRAWTO. XX241,YX4 

52 IF 4-і THEN RETURN 

55 GOTO 900 

EO COLOR КОМ) РОТ X2X2,Y2*4: КАНТО Х2Ж2, Ү2Ж4+5: 
PLOT Х2ж2+1, Ү2ж4+5: ОКАМТО X2k2+1, Y2Xx4 

65 RETURN 

100 DIM R(16),ZY (8) 

105 FOR J=1 TO 8:2Y(J)-O:R(GD =0: МЕХТ J 

110 GRAPHICS 10:РОКЕ 704,0 

120 GOSUB 3000 

125 P=19:A=19:8=19:D=-1 

130 M-8 


KALEIDO 


150 
160 
164 
168 
166 
167 
168 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
2800 
700 
750 
760 
goo 
ооо 
Ф2О 
940 
945 


950 
960 


770 
975 
780 
990 
995 


FOR J=1 TU 8 
R(J)=INTCRND (1) 8) +1 

ZA=0 

FOR T=1 TO 8:IF T=J THEN 167 
IF R(J)=R(T) THEN Zñ=1 
NEXT T 

IF ZA=1 THEN 160 

NEXT J 

Dz-D:kK-1:L-219: IF D2O THEN 200 
Kz19:L-1 

FOR J=K TO L ӨТЕР D 
Xz6*J:Y-Bs:GCOGUE So 
X=A-J:GOSUB SO 

A: Ү=В+7: 50508 ЗО 

B-J: 60508 50 

At+J:Y=B+J: 60SUE 50 
=A-J:Y=B-J:GOSUB SO 
Y=B+J:GOSUB 50 
X=A+J]:Y=B-J:GOSUE 50 

NEXT J 

FOR J=} TO SOO:NEXT J 

FOR J=1 TO 8:R(J)=O:NEXT J 
GOTO 150 
W=INT (3/2) : T=JI-W- 1 

FOR N=1 TO W 

IF Хе>Аа THEN 950 


X 
Y 
X 


167 


Y2zY: X2=X+N:GOSUB 60: X2=X-N:GOSUB 60: NEXT М: 
RETURN 


IF Ү<>В THEN 970 


X2zX:Y2zY-N: GOSUB 60: V2=Y-N:GOSUB 60: NEXT М: 
RETURN 


Y2zY: IF X>=A THEN 980 
Х2=Х+№: 60508 60: GOTO 990 
X2-X-N:GOSUB 40 

X2-2X:IF Yo=B THEN 1000 
Y2zY*N: GOSUB 60: БОТО 1010 


1000 Y2=Y-N:GOSUE 60 
1010 NEXT N:RETURN 
2000 COLOR RCN) SPLOT X2,Y2 


2010 RETURN 

000 ZX=O: FOR (2705 TO 712 

ZOOL ZX=ZX+1 

2005 Z=INTCRND(1) x15) +1 

5009 ZA=O 

5010 FOR J=1 TO 8:1IF 2=2Ү(Ј) THEN ZA=1: J=8 
2011 NEXT J 

$012 IF ZA=1 THEN 2005 


5015 PORE Q.ZX*X16-ZX*ó6:ZY(OZX)02Z 
JOZO NEXT 9: RETURN 
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EASY CHANGES 


1. To clear the screen before the next pattern about 20% of the time 
(chosen at random), insert this: 


175 IF RND(1) < 2.2 THEN GRAPHICS 10:POKE 
704,0 


For 50%, use .5 instead of .2, etc. 


2. To cause only the outward patterns to be displayed, insert line 178 
to say 


178 D=—1 
To cause only inward patterns, change it to say 


178 D=1 
3. To alter the number of graphics colors used in the patterns, alter 
the value of M in line 130. Be sure it is an integer from 2 to 15. 
4. To lengthen the delay after each pattern is drawn, change this line: 


750 FOR J=1 TO 1500:NEXT J 
Or, eliminate line 750 to eliminate the delay. 


Note: These changes add a lot to the appeal of the designs. Experi- 
ment! Each change can be done by itself or in combination with other 
changes. 


MAIN ROUTINES 


50- 65 Subroutines to do color plotting. 
100- 130 Housekeeping. Initializes variables. 
150- 170 Picks 8 random graphics colors. 
180- 190 Reverses direction of display (inward-outward). 
200- 700 Displays a full screen of the pattern. 


750 Delay loop. 
760 Zeroes out R array. 
800 Goes back to create next pattern. 


900-1010 Plots points on axes of design. 
2000-2010 Subroutine to plot points between axes. 
3000-3020 Initialization subroutine. 
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MAIN VARIABLES 


Distance from center to edge of design. 

,B Pointer to center of design. 

Direction in which design is drawn (1=outward, 
-1-inward). 

Multiplier used to determine the range of random graphics 
colors. 

R Array for the random graphics colors. 

T, J, K, L Subscript variables. 

X,Y Coordinates of point to be plotted on axes. 

X2, Y2 Coordinates of point to be plotted between axes. 

N, W, Work variables. 

Q, Z, 

ZA, ZX 


= p 
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SPARKLE 


PURPOSE 


This graphics display program provides a continuous series of 
hypnotic patterns, some of which seem to sparkle at you while they 
are created. Two types of patterns are used. The first is a set of 
concentric diamond shapes in the center of the screen. Although the 
pattern is regular, the sequence in which it is created is random, 
which results in the "sparkle" effect. 

The second type of pattern starts about two seconds after the first 
has finished. It is a series of “sweeps” across the screen — left to right 
and top to bottom. Each sweep uses a random graphics color that is 
spaced equally across the screen. The spacing distance is chosen at 
random for each sweep. Also, the number of sweeps to be made is 
chosen at random each time in the range from 10 to 30. 

After the second type of pattern is complete, the program goes 
back to the first type, which begins to overlay the center of the second 
type. 


HOW TO USE IT 


Confused by what you just read? Never mind. You have to see it to 
appreciate it. Just enter the program into your ATARI then sit back 
and watch the results of your labor. 
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SAMPLE RUN 


One of the patterns generated by the SPARKLE program. 


PROGRAM LISTING 


10 REM SPARELE 

15 REM COPYRIGHT 1984 DILITHIUM FRESS 
20 GOTO 100 

tO H=XXk2:Z=VYK4 

S5 FLOT H,Z:DRAWTO H,Z+3:FLOT H+1,2+3:DRAWTO H+1 
227 

60 RETURN 

100 GRAPHICS 10 

110 8-19 

120 DIM ACS), B(S):X=#G:YsS 

130 GOSUE 1000 

140 Т=ІМТ ‹ВЖКМЮ (1) +1) 

150 FÜR JeO TO 8:0 (D =]: 803) =Ј:МЕХТ J 
160 FOR J=O TO S:R=INT((S+1) ЖЕМЮ C12) 
170 W=A GD :А(Ј) =A(R) :ñ (R)=W:NEXT J 
180 FOR Ј=0 TO S$:R=INT((S+1) XRND(1)) 
190 W=B(J):B(J)=B(R):B(R)=W:NEXT J 
ТОО FOR J=0 TO S:FOR K=0 TO S 

210 RSA(QD :W=B(K) : CRAT 

220 COLOR C 

240 XX%=X+R: YY=Y+W: GOSUE SO 
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250 ХХ=Х+К: YY-Y-W: GOSUB 50 
260 XXzX-R: YYzY-Ws:GOGUE 50 

270 XX-X-R: YYzY-W: GOSUR 5 
280 XX=X+W: YYzY-R: 60506 50 
290 XX=X+W: ҮҮ=Ү-К: GOSUB 50 
500 XX=X-W: YY=Y-R:GOSUB So 
510 XX=X—-W: YY=Y+R:GOSUB 50 
520 NEXT K:NEXT J 

550 FOR 1-1 TO 20:МЕХТ J 

400 M=15 

405 N=INT (21 *RND(1))+10 

410 FOR J=1 TO N 

420 R=INT (22X*RND(1))+1:2W=INT (MKRND C12) 
20 COLOR W 

450 FOR XX=Y-S TO Y+S STEF INT(R/4) +1 

460 FOR YY=X-S TU X+S STEP R 

470 GOSUB 50 

480 NEXT YY:NEXT XX:NEXT J 

490 GOTO 140 

1000 POKE 704,0 

1010 FOR J=705 TO 712 

1020 Н=ІМТ (КМО (1) *16) 

1030 L=INTCRND(1)*10) +4 

1040 Z-(HX16)-L 

1050 РОКЕ 4,2 

1060 NEXT J 

1070 RETURN 


EASY CHANGES 


1. Make the second type of pattern appear first by inserting this line: 
135 GOTO 400 
Or, eliminate the first type of pattern by inserting: 
145 GOTO 400 
Or, eliminate the second type of pattern by inserting: 
360 GOTO 140 


2. Increase the delay after the first type of pattern by increasing the 
20 in line 350 to, say, 500. Remove line 350 to eliminate the delay. 

3. Increase the number of sweeps across the screen of the second type 
of pattern by changing the 10 at the right end of line 405 into a 30 
or a 50, for example. Decrease the number of sweeps by changing 
the 10 to a 1, and also changing the 21 in line 405 to 5 or 10. 

4. Watch the effect on the second type of pattern if you change the 22 
in line 420 into various integer values between 2 and 39. 
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5. Change the value of M in line 400 to alter the graphics color used 
in the second type of pattern. For example, try 


400 M=4 


Be sure that M is an integer from 2 to 15. 


MAIN ROUTINES 


50- 


60 Color plotting subroutine. 


120- 130 Initializes variables. Clears screen. 
140- 320 Displays diamond pattern in center of screen. 
150- 190 Shuffles the numbers 0 through 19 in the A and B 


arrays. 


200- 320 Displays graphics colors on the screen. 


350 


Delay routine. 


400- 480 Overlays the entire screen with a random graphics color 


spaced at a fixed interval chosen at random. 


1000-1070 Initialize screen and colors. 


MAIN VARIABLES 

S Size of first type of pattern. 

R Random integer. Also, work variable. 

A, B Arrays in which shuffled integers from 0 to S are stored for 
use in making first type of pattern. 

X,Y Coordinates of center for screen (19 across, 19 down). 

ХХ, YY Graphic coordinate work variables. 

T Integer from 0 to 8, used in creating random graphics 
colors. 

J,K,L Work and loop variables. 

H,W,Z Work variables. 

C Graphics color to be displayed on screen in first pattern. 

N Number of repetitions of second type of pattern. 

M Multiplier used in getting a random color for second type 
of pattern. 

SUGGESTED PROJECTS 


Make the second type of pattern alternate between "falling from 
the top" (as it does now) and rising from the bottom of the screen. 


SQUARES 


PURPOSE 


This is another graphics-display program. It draws a series of 
concentric squares with the graphics color used for each one chosen 
at random. After a full set of concentric squares is drawn, the next set 
starts again at the center and overlays the previous one. They are 
actually rectangles, not squares, but let's not be nit-pickers. 


HOW TO USEIT 


As with most of the other graphics display programs, you just sit 
back and enjoy watching this one once you get it started. 
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SAMPLE RUN 


One of the patterns generated by the SQUARES program. 


PROGRAM LISTING 


10 REM SQUARES 

15 REM COFYRIGHT 1984 DILITHIUM FRESS 

20 GOTO 100 

SO KEXX*ZiILZYYX4 

ЕО FLOT K,L: DRAWTO K,L+2:DRAWTO K+1,L+2:DRAWTO К 

*1l,.L 

70 RETURN 

100 Cl1-21:02-215 

110 DIM ZY(8) 

115 FOR 1-1 TO 8:2Y(J)-O:NEXT J 

i20 GRAPHICS 10 

125 GOSUB S200 

150 X220: Y=20:N=1 

140 C=INT(RND(1)4$8): IF С-Сі OR C=C2 OR C-CZ THEN 
GOTO 140 

150 C3-C2:C2-C1:C1-C 

170 COLOR C:FOR J=0 TO М: XX=X+d:YY=¥:GOSUB 50: NE 
XT J 
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180 X=X+N:N=N+1 

190 FOR J=0 TO N:XX=X:YY=Y¥-J:GOSUB 50:МЕХТ J 
200 YzY-N:FOR J=0 TO М XxX=X-J:YY=Y¥:G0SUB 50: МЕХТ 
J 

210 X=X-N 

220 FOR Ј=0 TO N:XX=X:YY=Y¥+d:GOSUB SO:NEXT J 
230 N=N+1:Y=Y+N 

240 IF N48 THEN 140 

250 FOR Ј=1 TO 10:МЕХТ J 

200 GOTO 130 

зоо POKE 704,0 

510 FOR Kz705 TO 712 

515 ZX=ZX+1 

E20 Qz-INT(ORND(1)X15):260-0 

525 FOR Ј=1 TO ЕСІР Q=ZY(J) THEN ZA=1: J=8 
S30 NEXT J 

$35 IF ZA=1 THEN 520 

$40 L=(Qk16)+2Z2X 

550 FOKE K,L 

$460 NEXT K:RETURN 


EASY CHANGES 


1. Change the delay after each set of patterns by changing the 10 in 
line 250. A bigger number causes a longer delay. 

2. To occasionally blank out the screen (about 20% of the time), 
insert this: 


255 IF RND(1) < .2 THEN GRAPHICS 10:РОКЕ 704,0 
MAIN ROUTINES 


50- 70 Color plotting subroutine. 
100-125 Housekeeping. Clears screen. 
130 Initializes counters for each pattern. Points to the center 
of the screen. 
140-150 Picks а graphics color. 
170-180 Draws the bottom side of the square. 
190 Draws the right side. 
200-210 Draws the top side. 
220-230 Draws the left side. 


240 Tests if the outermost square has been drawn. 
250 Delay loop. 
260 Goes back to start at the center again. 


500-560 Initialize screen and colors. 
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MAIN VARIABLES 


X,Y Coordinates of points being plotted. 
XX, YY Plotting work variables. 


N Length of the side currently being drawn. 

С Numeric equivalent of the random graphics color chosen. 
J Loop variable. 

K, L, Q, Work variables. 

ZA, Cl, 


C2,C3 


WALLOONS 


PURPOSE 


The ATARI is quite a versatile machine. This program takes ad- 
vantage of its powerful graphics capability to produce computer 
animation. That's right, animation! WALLOONS will entertain you 
with a presentation from the ATARI Arena. 

The ATARI Arena searches the world over to bring you the best in 
circus acts and other performing artists. Today, direct from their 
performance before the uncrowned heads of Europe, the Arena 
brings you the Flying Walloons. 


HOW TO USE IT 


Just sit back, relax, and get ready to enjoy the show. Type RUN 
and the Flying Walloons will be ready to perform. You have a front- 
row-center seat and the curtain is about to go up. 

Applause might be appropriate if you enjoy their performance. 
Please note that the Walloons have been working on a big finale for 
their act, but they haven't quite perfected it yet. 

Note: This program POKES into machine memory and may clob- 
ber the program if not entered correctly. So, after typing it into your 
machine, be sure to save it on cassette or disk before running it. Then 
you can reload it in case of trouble. 
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SAMPLE RUN 


р 


T ñ R I 
P R ü Uu 


- n 
нон 


араа 
+444446 


The billboard announces a new presentation of ће (infamous ATARI 
Arena. 


WAL LEO OD M 5 


“The Flying Walloons” are to perform! 
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The Walloons attempt a dangerous trick from their repertoire. 


PROGRAM LISTING 


10 REM WALLOONS 

19 REM COFYRIGHT 1984 DILITHIUM PRESS 

100 DIM ВФ(1):БФ-СНК%Ф (22) 

120 GOTO 2000 

190 POSITION AX,J-1:FRINT B$:;B$::FOSITION AX, J:F 
RINT B$; BS; : RETURN 

166 POSITION AX, J+1:FRINT BS; ЕФ: : РОЗІТІОМ AX, J+2 
SPRINT B$: Etti: RETURN 

200 POSITION AX,J:FRINT CHR$% (100) :CHR$ (102) :F0DS 
ITION AxX,J+1:FPRINT CHRSCIO1); CHRE (104) 5s RETURN 
200 FOSITION AX, J:PRINT СНКФ (109): CHR$(1112: : POS 
ITION AX, J+t1: PRINT CHR (110) ; CHR (112) 5: RETURN 
400 FOSITION AX,.J:FRINT CHRS (107) ;CHRS (105) + : FOS 
ITION AX, J+1: PRINT CHR (108) CHRE C106) ; : RETURN 
SOO POSITION AX,J:FRINT CHR (112) sCHRS(115)3:FOS 
ITION AX, J+is PRINT CHR (114) SCHR (116) :RETIURN 
BOO IF AX=21 THEN 900 

810 AX=21:FOSITION 6,18: FRINT BS; BS;:FOSITION 6, 
19:lRINT CHR (100) 1 CHR C102) 5 

815 POSITION 6, 20:FRINT СНКФ (101) :CHR$ (104) { 

Bao FOSITION 6,19: РКІМТ ВФ: B$; POSITION 6, 20:PRI 
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NT СНКФ (100): CHR$C102) 1 

B25 POSITION 21,20:PRINT CHR$ (100) s CHRE (102): PO 
SITION 6,21 

B20 PRINT СНКФ (101): СНКФ (104) :B$5 : FOR К=1 TO 12: 
PRINT Б%;:МЕХТ Ks PRINT СНКФ (101); CHR (104); 

B35 FOSITION 6,22 

640 FOR K=1 TO 7:РКІМТ СННФ(0);:МЕХТ Ki: FRINT CHR 
(16): СНЕФ (11) s CHR (17) РОК K=1 TO 7: PRINT CHRS 
(O); NEXT E 

B50 POSITION 21,19:PRINT CHR$ (100); СНКФ (102); : FD 
SITION 6,20 

BSS PRINT ЕФ; ВФ: : РОСІТІОМ 21,20:PRINT СНЕФ (101); 

СНЕФ (104) ; 

860 POSITION 6,21:PRINT СНКФ (100) {: СНКФ (102) { : FOR 
К=1 ТО 7:РКІМТ ЕФ; : МЕХТ K:FOR K=7 TO © ӨТЕР -1 

862 PRINT СНКФ (К)  МЕХТ К 

865 POSITION 6, 22:РКІМТ СНК (101); CHRS (104) ; : FOR 
K=6 TO 2 STEP -1:FRINT СНКФ (F) є: МЕХТ K:FRINT CH 

КФ (14) sCHRS(11)5 

B70 PRINT СНКФ (12): :FOR K=1 TO 7: PRINT ВФ; : NEXT 

Е 

ЕВО FOSITION 21,19:РКІМТ ВФ; ВФ: :POSITION 21,20:F 

RINT Bs Rss 

B90 RETURN 

GOO AX=6:POSITION 21,18:FRINT EH$:B$9::POSITION 21 
s19:FRINT CHR (100) CHRE (102) 8 : POSITION 21, 20:FR 
INT CHR$101):; 

905 PRINT СНК%(104); 

910 POSITION 21,19:ҒКІМТ ВФ: ЕФ; : РОЅІТІОМ 6,20:FR 
INT СНЕФ (100) { СНЕФ (102): 

915 POSITION 21,20: РКІМТ СНКФ (100) s СНКФ (102) : :F'O 
SITION 6,21 

G20 PRINT СНКФ (101) 3 СНКФ (104); ВФ: РОК K=1 TO 12: 

FRINT Б%;:МЕХТ K:PRINT CHR$(101); СНЕФ (104) ; 

925 POSITION 6,22 

930 FOR K-1 TO 7:PRINT CHR$(OO)::NEXT K:FRINT CHR 

PLO) sCHR# (11) sCHR#(17)3:FOR K=1 TO 7: PRINT CHRS 
CO); sNEXT K 

940 POSITION 6,19:FRINT СНКФ (100) ; СНКФ (102) ; : РОЗ 
ITION 21,20:PRINT ВФ: B$; РОЗЅІТІОМ 6, 20: РКІМТ CHR 
$ (101) 3 CHR$ (104) ; 

950 POSITION 6,21:FO0R К-О TO 7:PRINT СНКФ(К); : NE 

XT K 

9355 FOR К-і TO 8:PRINT B$;:NEXT KsFOSITION 21,22 
SPRINT CHR$(0101)3 СНАФ (104) 

960 POSITION 21,21:PRINT CHR$(100): СНКФ (102) : : FO 

SITION 6,22:FOR K=1 TO 7:PRINT B$::NEXT K 

985 PRINT CHR# (12)  sCHR$ (11) sCHR$ (15) 5: FOR K=2 TO 
б: РКІМТ СНАФ СК) ss NEXT K 

980 POSITION 6,19:FRINT BS;B$;: POSITION 6,20:FRI 

NT BS; BS; 

790 RETURN 
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1000 POKE 792,1:FRINT CHR$(125):FOR 1=1 TO 38:РО 
SITION І,25:РКІМТ CHRS$(GDs::NEXT I 

1010 FOR Іс TO 22:PO0SITION Z8,I:FRINT CHR$():: 
NEXT I 

1020 FOR I-7 TO 22:FOSITION 52,1:РКІМТ CHR$(€8);: 
NEXT I 

1030 FOR I-7 TO 22:FO0SITION 24,1:РКІМТ СНКФ (O): C 
НЕФ CO) ; CHRS CO) s CHR (O) s : NEXT I 

1040 POSITION 52,7:РКІМТ СНКФ (10) { 

1050 FOR I232 TO 26 STEP -1:POSITION І,7:РЕІМТ C 
HR$((O)::sNEXT I:FOSITION 25,7:FRINT СНКФ (105) { 
1060 FOR І=0 TO 7:POSITION 22-I,21:PRINT CHR$ (I) 
1$: NEXT I 

1070 FOR 1=1 TO 7:FOSITION 14-І,22:РКІМТ СНКФ (1) 
3: NEXT I 

1080 FOSITION 12,22:РКІМТ СНКФ (14) 3 CHRS (11): CHRE 
(15); 

1090 GOSUB 2100 

1100 POSITION 24,4:РКІМТ СНКФ (100) ; CHR$ (102) : : FO 
SITION 24,5:PRINT СНКФ (101); CHR C104) ; 

1105 FOR Ісі TO 100:NEXT I 

1110 POSITION 23,3:PRINT CHR (107); CHR$ (105) РО 
SITION 23,4:РКІМТ CHR$ (108) ; CHR$ (106) ; B$ 

1115 POSITION 24,5:PRINT B$; ВФ: Б050В 2900 

1120 POSITION 22, 3:FRINT CHR (107) : СНКФ (105) : B$; 
POSITION 22,4:PRINT CHRE (108) ; CHRE C106) ; ВФ 

1125 GOSUB 2900 

1130 POSITION 21,4:PRINT CHR$ (112) :CHR$ (115): ВФ; 
POSITION 21,5: PRINT CHR (114)  CHR$ (116) ; ВФ 

1135 POSITION 22,3: FRINT B$; B$; : GOSUB 2900 

1140 AX=21:Z=4:FOR Іс4 TO 15 

1150 FOR 1-І ТО 18:GOSUB 150:2-241:IF 2-5 THEN Z 
-1 

1160 IF 7-2 AND 18-J£4 THEN 2=1 

1170 ОМ Z GOSUB 200, 3500, 400, 500 

1180 GOSUB 2900 

1200 NEXT J 

1210 GOSUB 800 

1220 FOR 1-18 TO I STEF -1:G0S8UB 160:Z=Z+1:1F Z= 
8 THEN 27-1 

1230 ОМ 2 GOSUB 200,300,400,500 

1240 GOSUB 2900 

1250 NEXT J 

1255 J=J+1:GOSUB 150 

1260 NEXT I 

1270 FOR J=16 TO 21:GOSUB 150:7х2%1:ІҒ 2=5 THEN 
Z=1 

1280 ON Z GOSUB 200,300, 400, 500 

1290 NEXT J 

1300 FOR Іі TO SOO:NEXT I:GRAPHICS О: END 

2000 RAM=PEEK (106) :POKE 106.КАМ-4: GRAPHICS O: РОК 
E 792,1: GOSUB 2500: CH=RAM~4 
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2010 AD-CHX256:FÜR X=1 TO SOO:POKE Ар+Х, РЕЕК (573 
44*X):NEXT X:GOSUB 2600 

2020 FOR X-501 TO 1023:PÜKE AD+X, PEEK (57344+X):N 

EXT X 

ZOZO RESTORE Z000:FOR I=1 TO 46:READ M:XX=AD+M 
2040 FOR Ј=0 TO 7:READ М:РОКЕ XX-J,N:NEXT J:NEXT 
I 

2050 GRAPHICS O:FOKE 756.СН%2:РОКЕ 752,1:GOTO 10 
оо 

2100 XX=20:D=1:FOR Ізі TO 100:NEXT I 

2110 FOR Ісі TO 6:POSITION I-1,22:PRINT B$;:FOSI 

TION I-1,.21:PRINT ВФ: : РОЅІТІОМ 1,21:РБІМТ CHR$(1 

B); 

2120 D=-D:XX=XX-D:FOSITION I,22:PRINT СНЕФ (ХХ) з: 

FÜR J=1 TO SO:NEXT J:NEXT I 

2120 GOSUB 2900:POSITION 6,21:PRINT CHR$(100);CH 

КФ (102) POSITION 6,22:PRINT СНКФ (101); HRE((IOA) 

2140 GOSUB 2700 

2150 FOR I-21 TO 5 STEP -1:G08UB 2950:РОбІТІОМ 3 

5, 1+2:PRINT СНЕФ СО) CHR )::GOSUB 2900: МЕХТ I 

2160 XX=22:D=1:A=19:FOR І=35 TO 25 ӨТЕР -1:GOSUB 
2450:GOSUB 2400:GOSUB 2900:NEXT I 

2170 POSITION 25,6:PRINT CHR$(22);:FOR Ізі TO 17 

S NEXT I 

2180 XX=20:D=1:A=18:FOR I=25 TO 55:650508 2450:60 

SUE 2250:608UB 2900:NEXT I:FOR Ізі TO 100:NEXT I 

2190 POSITION 35,5:PRINT СНКФ (19) :: POSITION 25,6 
;PRINT CHR$(G2)::FÜR Ізі TO 200:NEXT I 

2200 XX=#22:D=1:A=19:FOR І=55 TO 25 STEP -1:GOSUB 
2450: G0SUB 2400: 50508 2900:NEXT I 

2210 FOR Ізі TO 100:NEXT I:POSITION 25,5:PRINT B 

*$:rPÜSITION 25,6:PRINT CHR (24) CHR (25) р 

2220 FOR Ісі TO 200:МЕХТ I:POSITION 25,5:PRINT C 

HR€(19)::PÜSITION 25,6:PRINT CHRE (22) 3 ВФ; 

2230 FOR Ізі ТО 100: МЕХТ I:POSITION 25,5:PRINT С 

НЕФ (18) ::РОЗІТІОМ 25, 6: РКІМТ СНЕФ (20); 

2240 XX=20:D=1:A=18:FOR І-25 ТО 55:60508 2450:60 

SUB 2350:GOSUB 2900: NEXT I:FOR Ізі TO 100:NEXT I 

Z250 POSITION 35,5:PRINT СНКФ (19) ::FOSITION 25,6 
:РАІМТ CHRS$(22)::FOR Ізі TO 200:NEXT I 

2260 XX=22:D=1:A=19:FOR 1=35 TO 25 STEP -1:GOSUB 
?450:GÜSUE 2400:GOSUB 2900:NEXT I 

2270 FOR Ізі TO Z:FOSITION 25,4:PRINT CHR$(19):: 

POSITION 25,5:PRINT CHRS(22); POSITION 25,6:PRIN 

T Bb; 

280 FOR К=1 TO 100:NEXT K:POSITION 25,4:PRINT B 

$::POSITION 25,5:PRINT CHR$(19)::POSITION 25,6 

Z290 PRINT CHR$(22)::FO0R K=1 TO 100:NEXT К:МЕХТ 
I:FÜSITION 25,4:PRINT СНЕФ (19) 3 POSITION 25,5:PR 
INT CHR$(22); 
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2300 POSITION 29,6:FRINT ВФ; :RETURN 

2350 POSITION I-1,9:FRINT B$;:FOSITION 1-1,6:РКІ 
NT БФ: : RETURN 

2400 POSITION I+1,S:FRINT B$;::FOSITION I+1,6:FR1 
NT ВФ; : RETURN 

Z450 D=—-D: XX=XX-D: POSITION I,5:FRINT СНКФ(А);:РО 
SITION I,6:PRINT CHRS (XX) ss RETURN 

2500 PRINT СНКФ (125) :FOSITION 11,9:FRINT "АТА 
R I A R E N A"; 

2510 FOSITION 15,11:PRINT "F R Q U D L. Y"; 

2520 POSITION 14,13:PRINT "PF RES EN T S"5 
2530 POSITION 9,7:FOR 2-1 TO 25:FRINT "X"::NEXT 


2540 FOR Ј=1 TO 7:FOSITION 9,74J:PRINT "X";:FOSI 
TION ZZ,7-J:FRINT "x"; NEXT J 

2550 POSITION 9,15:FOR 02-1 TO 25:PRINT "X"i:NEXT 

25450 RETURN 

2600 PRINT CHR$(125):POSITION S,S5:FRINT "T H Е"; 
2610 POSITION 10,10:PRINT "F L Y I N G"; 

Z620 FOSITION 15,15:FRINT "WALLOON S"; 

2630 RETURN 

2700 XXs22:X229:G0SUB 2850:G0SUB 2900 

2710 GOSUE 2850: РОЗІТІОМ Z28,21:PRINT CHRS (9); PO 

БІТІОМ 38,22:FRINT CHR$(9)::G608UB 2900 

2720 FOR Isi TO A4:G0SUE 2850:PÜGITION X41,21:PRI 

NT CHR$(O);:FOSITION X-1,22:PRINT CHR$ (O) ::G08UB 
2900:NEXT I 

2720 GOSUB 2850:FOSITION 2Z,21:FRINT CHR$(8);:FO0 

SITION ZZ,22:PRINT CHR$(D;:GOSUE 2900 

2740 FOR Ізі TO S:GO0SUB 2850:POSITION X+1,21:PRI 

NT ВФЕ: РОЗІТІОМ X41,22:PRINT ВФ: : БОЗЦЕ 2900: NEXT 
І 

2750 FOR 1=1 ТО 79: МЕХТ I:FOSITION X,21:FRINT CH 

КФ (100); CHR$ (102) z POSITION X,22:PRINT СНЕФ (101) 
:СНКФ (104); 

2755 FOR Ізі ТО 500: МЕХТ I 

2760 XX=ZO:FOR I=6 TO 1 STEF -1:GO0SUB 2800:Р061Т 
ION X-1,21:PRINT ВФі:РОФІТІПМ X-1,22 

2770 PRINT ВФ: : 60508 2900:МЕХТ I:GOSUB 2800:FO0SI 
TION X-1,21:PRINT CHRS(8);:POSITION X—1,22:PRINT 
СНЕФ (8) 1 

2780 GOSUB 2900:G0SUB 2800:FOSITION X-1,21:PRINT 
CHR$(O)::PÜSITION X-1,22:PRINT CHRS(O);:GOSUB 2 

900 

2790 POSITION X,21:PRINT CHR$(100):CHR$(1O2)::FQ0 
SITION X,22:PRINT СНЕФ (101) 3 СНЕКФ (104); : RETURN 
2800 X=X+1:D=-D: XX=XX-D:FOSITION X,21:PRINT CHR$ 
(18) ;:POQSITION X,22:PRINT CHRS(XX)3:RETURN 

2ӨЗО X=X-1:D=—-D:XX=XX-D:FOSITION X,21:FRINT СНЕФ 
(19) POSITION X,22:PRINT CHR (OO: : RETURN 

2900 FOR K=1 TO 10:NEXT К: КЕТОКМ 
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2950 POSITION 3S,I:PRINT СНАФ (100) : СНКФ (102) {РО 
SITION 3S,I*1:PRINT СНКФ (101) s СНКФ (104) ; : RETURN 

3000 DATA 512.255,0,0,0,0,0,0,0,5220,0,255,0,0,0, 
0,0,0 

2005 DATA 528,0,0,255,0,0,0,0,0,536,0,0,0,25%,0, 
0,0,0 

5010 DATA 544,0,0,0,0,255,0,0,0,552,0.0,0,0,0,25 
5,0,0 

1015 DATA 560,0,0,0,0,0,0,255,0,508,0,0,0,0,0,0, 
0,255 

$020 DATA 576,3, 3, 3,3, 3, 3, 3, 3, 584, 192, 192, 192,19 
2.192,192,192,192 

2025 DATA 592,255,5,5,2,3,5, 

6,255, 255, 255, 255 

2030 DATA 608,0,0,0,0,0,1,3,7,616,9,0,0,0,0, 128, 
192,224 

5055 DATA 624,0,255,0,0,0,1,3,7,632,0,255,0,0,0, 
128,192,224 

$040 DATA 640, 255,0,0,0,0,1,3, 7,648, 255,9,0,0,0, 
128,192,224 

2045 DATA 656, 224, 224, 224,192, 224, 240, 248, 236, 66 
4.7.,7,7,3,7,15, 31,595 

TOSO DATA 672.224.224,224,224,224,224,224,248,68 
0,224,224,240,216,204,196,192,240 

5055 DATA 688,7,7.,7,7,7,7,7,31,696,7,7,15,27,51, 
227.5,18 

$060 DATA 704,0,0,0,0,255,255,229,0,712,0,0,0,0, 
255,255,131,3 

$090 DATA 800,5,5,2,1,7,15,27,51,808,5,5,7,6,6,6 
36,30 

*100 DATA 816,192, 192,192, 128, 224,240, 216, 204, 82 
4,15,0,0,0,0,0,0,0 

5110 DATA 822,192,192,224,96,96,96,96,120,840,12 
0,96,96,96,96,224.,192,192 

5120 DATA 848,204,216,240,224,128.192,192,192,85 
6,50,0,6,6,6,7,3,2 

2130 DATA 864,51,27,15,7,1,5,5,25,872,0,1,1,5,6,1 
2,239, 255 

5140 DATA 880,255,259,12,6.5,1,1.0,888,0,0,0,5,2 
163,255,224 

$150 DATA 896,224,255,65,2.25,0,0,0,904,0,0,0,192 
192, 252, 255, 7 

5160 DATA 912,7, 255, 252, 192, 192,0,0,0, 920,0,0,0, 
192,96, 48,247,255 

$170 DATA 928, 255, 247, 48, 96,192,0,0,0, 926,7,757;5 
3.7.15, 31,55 

$180 DATA 744, 103,7, 15,27,51, 227, 3, 15,752, 103,7, 
74.7.7,74.7,31 


3., 3, 600, 255, 24, 60,12 
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EASY CHANGES 


к-. 


. If you wish to have the Walloons perform more (or less) jumps 
during their performance, change the loop bound value of 3 in line 
2270 accordingly. To get more jumps, try 


2270 FOR I=1 TO 8: < rest of line > 


N 


. The title placard is currently bordered by asterisks. To get another 
character, change the asterisk character strings in lines 2530, 
2540, and 2550 to another character. 

. You might want to personalize the title placard and make yourself 
the presenter of the Walloons. This can be done by altering the 
string literal, “ATARI ARENA”, in line 2500 to something else. 
However, you cannot use a string with a length of more than 22 
characters or it will be clipped by the end of the placard. To say, for 
example, that Mr. Simon Q. Fenster presents the Walloons, change 
line 2500 to read: 


2500 PRINT CHR$(125):POSITION 11,9: 
PRINT“MR. SIMON Q. FENSTER"; 


o 


MAIN ROUTINES 


150-1290 Subroutines to draw (and erase) Walloons and their 
performing apparatus. 
1300 Time-delay subroutine. 
2000-2050 Initializes memory locations. 
2100-2450 Drives text and graphics displays. 
2500-2560 Subroutine to display placard. 
2600-2630 The performers are announced. 
2700-2950 Тһе Walloons make their entrance and perform. 
3000-3180 Graphics data. 


MAIN VARIABLES 


X, Y Current X,Y location of Walloon; also “bit” table data 
values and locations. 

XX, AX Reference X,Y locations for Walloons. 

LJ,K Loop indices. 
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Z Work variable. 

RAM Highest available memory page. 

CH, AD Reference memory pages and locations. 
M,N,D Work variables used in reading data. 


SUGGESTED PROJECTS 


1. Add some alternate tricks or endings to the act; try randomizing if 
and when they will be done. Thus, the Walloons performance will 
be different each time the program is run. At least their ending may 
be variable. 

2. Scour the world yourself for other acts to include in the ATARI 
Arena. Maybe someday we will have a complete software library 
of performing artists. 


Section 5 


Mathematics Programs 


INTRODUCTION TO MATHEMATICS PROGRAMS 


Since their invention, computers have been used to solve mathe- 
matical problems. Their great speed and reliability render solvable 
many otherwise difficult (or impossible) calculations. Several differ- 
ent numerical techniques lend themselves naturally to computer solu- 
tion. The following programs explore some of them. They will be of 
interest mainly to engineers, students, mathematicians, statisticians, 
and others who encounter such problems in their work. 

GRAPH takes advantage of the ATARTS graphic powers to draw 
the graph of a function Y —f(X). The function is supplied by you. 
INTEGRAL calculates the integral, or "area under the curve," for 
any such function. 

Experimental scientific work frequently results in data at discrete 
values of X and Y. CURVE finds a polynomial algebraic expression 
to express this data with a formula. 

Theoretical scientists (and algebra students) often must find the 
solution to a set of simultaneous linear algebraic equations. SIMEQN 
does the trick. 

Much modern engineering work requires the solution of differen- 
tial equations. DIFFEQN will solve any first-order ordinary differen- 
tial equation that you provide. 

STATS will take a list of data and derive standard statistical infor- 
mation describing it. In addition, it will sort the data list into ranking 
numerical order. 
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CURVE 


PURPOSE AND DISCUSSION 


CURVE fits a polynomial function to a set of data. The data must 
be in the form of pairs of X-Y points. This type of data occurs 
frequently as the result of some experiment, or perhaps from sam- 
pling tabular data in a reference book. 

There are many reasons why you might want an analytic formula 
to express the functional relationship inherent in the data. Often you 
will have experimental errors in the Y values. A good formula 
expression tends to smooth out these fluctuations. Perhaps you want 
to know the value of Y at some X not obtained exactly in the experi- 
ment. This may be a point between known X values (interpolation) or 
one outside the experimental range (extrapolation). If you wish to use 
the data in a computer program, a good formula is a convenient and 
efficient way to do it. 

This program fits a curve of the form 


Y-C,-C,X! - CX? +... +CpXP 


to your data. You may select D, the degree (or power) of the highest 
term, to be as large as 7. The constant coefficients, Cy —Cp, are the 
main output of the program. Also calculated is the goodness of fit, a 
guide to the accuracy of the fit. You may fit different degree poly- 
nomials to the same data and also ask to have Y calculated for specific 
values of X. 

The numerical technique involved in the computation is known as 
least squares curve fitting. It minimizes the sum of the squares of the 
errors. The least squares method reduces the problem to a set of 
simultaneous algebraic equations. Thus these equations could be 
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solved by the algorithm used in SIMEQN. In fact, once the proper 
equations are set up, CURVE uses the identical subroutine found in 
SIMEQN to solve the equations. For more information, the bibli- 
ography contains references to descriptions of the numerical 
technique. 


HOW TO USE IT 


The first thing you must do, of course, is enter the data into the 
program. This consists of typing in pairs of numbers. Each pair 
represents an X value and its corresponding Y value. The two num- 
bers (of each pair) are separated by a comma. А question mark will 
prompt you for each data pair. After you have entered them all, type 


999,999 


to signal the end of the data. When you do this, the program will 
respond by indicating how many data pairs have been entered. A 
maximum of 75 data pairs is allowed. 

Next, you must input the degree of the polynomial to be fitted. 
This can be any non-negative integer subject to certain constraints. 
The maximum allowed is 7. Also, D must be less than the number of 
data pairs. 

A few notes regarding the selection of D may be of interest. If 
D =0, the program will output the mean value of Y as the coefficient 
Со. If D=1, the program will be calculating the best straight line 
through the data. This special case is known as "linear regression." If 
D is one less than the number of data pairs, the program will find an 
exact fit to the data (barring round-off and other numerical errors). 
This is a solution which passes exactly through each data point. 

Once you have entered the desired degree, the program will begin 
calculating the results. There will be a pause while this calculation is 
performed. The time involved depends on the number of data pairs 
and the degree selected. For 25 data pairs and a third degree fit, the 
pause will be about a minute. Fifty data pairs and a fifth degree fit 
will take over three minutes. 

The results are displayed in a table. It gives the values of the 
coefficients for each power of X from 0 to D. That is, the values of 
C, —Cp are output. Also shown is the percent goodness of fit. This is 
a measure of how accurately the program was able to fit the given 
case. A value of 100 percent means perfect fit, lesser values indicate 
correspondingly poorer fits. It is hard to say what value denotes 
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satisfactory fit since much depends on the accuracy of data and the 
purpose at hahd. But as a rule of thumb, anything in the high nineties 
is quite good. For those interested, the formula to calculate the 
percent goodness of fit is 


Li-Y;y 


P.G.F=100* |;.. б 
Yi- 

where Y; are the actual Y data values, Y; are the calculated Y values 

(through the polynomial expression), and Y is the mean value of Y. 

Next, you are presented with three options for continuing the run. 
These are 1) determining specific points, 2) fitting another degree, 
3) ending the program. Simply type 1, 2, or 3 to make your selec- 
tion. A description of each choice now follows. 

Option 1 allows you to see the value of Y that the current fit will 
produce for a given value of X. In this mode you are continually 
prompted to supply any value of X. The program then shows what 
the polynomial expression produces as the value for Y. Input 999 for 
an X value to leave this mode. 

Option 2 allows you to fit another degree polynomial to the same 
data. Frequently, you will want to try successively higher values of D 
to improve the goodness of fit. Unless round-off errors occur, this 
will cause the percent of goodness of fit to increase. 

Option 3 simply terminates the program and with that we will 
terminate this explanation of how to use CURVE. 


SAMPLE PROBLEM AND RUN 


Problem: An art investor is considering the purchase of Primo's 
masterpiece, “Frosted Fantasy." Since 1940, the painting has been for 
sale at auction seven times. Here is the painting's sales record from 
these auctions. 


Year Price 

1940 $ 8000. 
1948 $13000. 
1951 $16000. 
1956 $20000. 
1962 $28000. 
1968 $39000. 


1975 $53000. 
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The painting is going to be sold at auction in 1984. What price should 
the investor expect to have to pay to purchase the painting? If he 
resold it in 1988, how much profit should he expect to make? 

Solution: The investor will try to get a polynomial function that 
expresses the value of the painting as a function of the year. This is 
suitable for CURVE. The year will be represented by the variable X, 
and the price is shown by the variable Y. To keep the magnitude of the 
numbers small, the years will be expressed as elapsed years since 
1900, and the price will be in units of $1000. (Thus a year of 40 
represents 1940, a price of 8 represents $8000.) 


Initially, a first degree fit was tried and a goodness of fit of about 
97.5% was obtained. The investor wanted to do better, so he tried a 
second degree fit next. This had a very high goodness of fit. He then 
asked for the extrapolation of his data to the years 1984 and 1988. He 
found that he should expect to pay about $75000 to buy the painting 
in 1984. Around a $11000 profit could be expected upon resale in 
1988. 

Of course, the investor did not make his decision solely on the 
basis of this program. He used it only as one guide to his decision. 
There is never any guarantee that financial data will perform in the 
future as it has done in the past. Though CURVE is probably as good 
a way as any, extrapolation of data can never be a totally reliable 
process. 
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SAMPLE RUN 


V TURA 


1, 


FA 


Aram 


The operator selects a first degree fit to the data. 
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A second degree fit is attempted for the same data. 


LEAVE THIS MODE 


The operator asks to see the predicted sale prices for 1984 and 1988, and 
then exits from the program. 
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PROGRAM LISTING 


10 REM CURVE 

15 REM COPYRIGHT 1984 DILITHIUM FRESS 

150 GRAPHICS O:PRINT CHR (125) 

150 MX=75 

160 EF=999 

170 MD=7 

200 DIM X (MX), Y(MX) 

210 Q=MD+1:DIM Аа, а), Ка», ма) 

220 Q=MD*k2:DIM F(a) 

ОО PRINT " - LEAST SQUARES CURVE FITTING —":FR 
INT 

510 PRINT "ENTER А DATA FAIR IN RESFONSE TO" 

320 PRINT “EACH QUESTION MARE. EACH FAIR IS" 

B20 PRINT "AN X VALUE AND A Y VALUE SEPARATED": Е 

RINT "BY A СОММА." 

240 FRINT :PRINT "AFTER ALL DATA IS ENTERED, TYF 

E" 

250 PRINT СНКФ (22) ЕРЕ", "ЕЕ 

360 PRINT "IN RESPONSE TO THE LAST QUESTION" : РКІ 

NT “MARK. " 

270 PRINT : PRINT "THE FROGRAM IS CURRENTLY SET Т 

о" 

$80 PRINT "ACCEPT А MAXIMUM OF ";MXs" DATA FAIRS 
" 


400 PRINT :4-0 

405 TRAF 5000 

410 XZ=1l:J=J+1:FRINT "X, Y="; INPUT X, Y: X(J)=X: Y ( 

J)=Y 

420 IF X(J)=EF AND Y(J)=EF THEN 2-2-1:6070 450 

430 IF J=MX THEN PRINT :PRINT "NO MORE DATA ALLO 

WED":GOTO 450 

440 GOTO 410 

450 МР=Ј: PRINT 

440 IF МР-О THEN GOSUB 1600:FRINT "NO DATA ENTER 

ED":END 

470 PRINT МР;" DATA PAIRS ENTERED":PRINT 

500 XZ=2:PRINT :PRINT "DEGREE OF POLYNOMIAL TO B 

E FITTED"::INFUT D:PRINT 

510 IF D<O THEN GOSUB 1500:РКІМТ "DEGREE MUST BE 
b= O":GOTO 500 

520 D=INT(D):IF DENE THEN 540 

S30 GOSUB 1500:PRINT "NOT ENOUGH рата": Бото 500 

540 D2=2*D:IF D2MD THEN GOSUB 1500:PRINT "DEGREE 
TDO HIGH":GOTO 500 

550 N=D+1 

600 FOR 2-1 TO D2:F(J)=0:FOR Kei TO NP 

610 РОЈ) =P (0) +X (К) “Jd МЕХТ Ki NEXT. ЈЕР CO) =NP 

620 R(1)=O:FOR J=1 TOR) =R(1)+¥ (J) 

630 NEXT J:IF N=1 THEN 440 

640 FOR J=2 TO NiR(J)=0:FOR K=1 TO NF 
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650 R(J)=R(J)+Y(K)£X(K)”“(J-1):NEXT К:МЕХТ J 

660 FOR J-1 TO N:FOR K=1 TO N:A (J, ,F)=P (J+K—-2) : NE 
XT KiNEXT J 

670 GOSUB 2000 

700 PRINT "X POWER", "COEFFICIENT" 

710 FOR J=1 TO 7:PRINT CHR#(18)3:NEXT J:PRINT СН 
R$$ 032) : CHR C32) ; CHR$ C32) ; 

720 FOR J=1 TO 11:PRINT CHRS(18)3:NEXT J:PRINT 
30 FOR J=1 ТО N:PRINT J-1,V(OGD :NEXT J:PRINT :PR 
INT 

740 Q=0:FOR Ј=1 TO МР: Q=0+Y(J):NEXT J:M=Q/NP: T=0 
:б-о:ҒОН J=1 TO NP 

750 Q=O0:FOR K=1 TO М: Q=Q+V (К) ЖХ (J) *(K-1L) 2 NEXT. Ks 
T=T+(Y (J) -00 ^2 

760 G=G+(¥ (J) -M) ^2:NEXT Js IF G-O THEN Т=100: БОТО 
780 

770 T=100kSQR(1-T/G) 

780 FRINT "FERCENT GOODNESS OF FITs "iT 


BOO PRINT sFRINT "-- CONTINUATION OPTIONS --":FR 
INT 

810 PRINT " 1 - DETERMINE SPECIFIC POINTS" 

B20 РКІМТ " 2 — FIT ANOTHER DEGREE TO SAME DATA 
ETO PRINT "Ü" 3 ~ END FROGRAM":FRINT 


849 XZ-35:PRINT "WHAT NEXT" ss INFUT G@:Q=INT (CQ): IF 
G=3 THEN END 

B50 IF 0-2 THEN ЗОО 

B50 IF 0<>1 THEN 800 

FOO PRINT :FRINT :PRINT "ENTER "sEF:;" TO LEAVE Т 
HIS MODE" 

910 XZ=4:PRINT :РКІМТ "Xz":;:INFUT XV: ІР XV=EF TH 
EN 800 

920 YVzO:FOR Е=1 TO М 

SUO YU=YV+VU (K) XXV^GZL-1) : NEXT E:PRINT "Үш "үу 
740 GOTO 910 


1500 PRINT "ЖЖ ERROR! XX —— "3: RETURN 
1600 PRINT "Жж FATAL ERROR! Xx -- "::RETURNM 


ООО IF N=1 THEN V(1)-R((1)/061,1): RETURN 
2010 FOR К=1 TO N-t 

S020 I=F-+1 

LzkK 

IF ABS(ACI,ED0)0 2ABSGY(L,F2). THEN L=I 
IF T<N THEN I-I-*1:(G0TO 2040 

IF L-K THEN 2100 

2070 FOR J-kK TO N:Q=ACK, J) A CX.) 98 (L. J) 
ZOBO A(L,J)=Q:NEXT J 

2090 Q=RCK) sR CK) SR (GLO s R CL) =O 

2100 I=K+1 

2110 G=ACI,E) АЕ, ER) :2ACI,.ED =0 

2120 FOR Ј=к+1 TO Nr ACI, PDAL, J) AKAH, J) s NEXT 
J 
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2130 R(ODZRD -GQXRGOD£2?IF IZN THEN I-I-1:60TO0 211 
о 

2140 NEXT F. 

2150 VC(N)=R(N) /ACN,N) FOR I-N-1 TO 1 STEF -1 
2160 Q=0:FOR J=I+1 TO N:Q=DQ+A (I, J) kV GI) 

2170 У (1) = (КІ) -П) /ACI, 1) :NEXT JiNEXT I 
2180 RETURN 

2000 IF РЕЕК (199) < 58 THEN 3050 

S005 PRINT "ILLEGAL ENTRY" 

2010 TRAP ЗООО:ІҒ XZ=1 THEN J=J-1:G0TO 410 
3020 IF XZ=2 THEN 500 

3020 IF X223 THEN 840 

3040 IF XZ=4 THEN 910 

$050 END 


EASY CHANGES 


1. The program uses 999 as the flag number to terminate various 
input modes. This may cause a problem if your data include 999. 
You can easily change the flag number by modifying the value of 
EF in line 160 to any value not needed in your data. To use 10101, 
for example, make this change: 


160 EF= 10101 


2. Currently a maximum value of 75 data pairs is allowed. If you 
need more, change the value of MX in line 150 to the number 
required. For example, to allow up to 200 data pairs, use 


150 MX=200 


3. To allow fits of higher degrees than seven, set MD in line 170 to the 
maximum degree desired. To achieve up to tenth degree fits, set 
the value of MD appropriately: 


170 MD=10 


However, it must be stressed that it can be unreliable to attempt 
high degree fits. Unless your data is well behaved (X and Y values 
close to 1), the program will often not produce accurate results if 
D is greater than five or so. This is because sums of powers of X 
and Y are calculated up to powers of 2*D. These various sums are 
several orders of magnitude different from each other. Errors re- 
sult because of the numerous truncation and round-off operations 
involved in doing arithmetic with them. A practical limit for MD is 
seven. 
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4. The demand on available RAM memory is increased if you raise 
the values of MX or MD as described in the above two Easy 


Changes. 


memory, 


Should MX or MD be set too large for your available 
an out-of-memory or illegal-quantity error will result 


after execution begins. If this occurs, decrease MX and/or MD to 
enable the program to run. 


MAIN ROUTINES 
130- 170 Initializes constants. 
200- 220 Dimensions arrays. 
300- 380 Displays introductory messages. 
400- 470 Gets X-Y input data from the user. 
500- 550 Gets degree of polynomial from the user, determines if 
it is acceptable. 
600- 670 Sets up equations for the simultaneous equation solver 
and calls it. 
700- 780 Calculates percent goodness of fit, displays all results. 
800- 860 Gets user's continuation option and branches to it. 
900- 940 Determines Y value corresponding to any X value. 
1500-1600 Subroutines to print error messages. 
2000-2180 Subroutine to solve simultaneous linear algebraic 
equations. 
3000-3050 Trap to catch illegal entries. 
MAIN VARIABLES 
MX Maximum number of data pairs allowed. 
MD Maximum degree allowed to fit. 
EF Ending flag value for data input and X point mode. 
X,Y Arrays of X and Y data points. 
NP Number of data pairs entered. 
D Degree of polynomial to fit. 
D2 2*D, the maximum power sum to compute. 
N D+1, number of simultaneous equations to solve. 
A,R,V Arrays for simultaneous linear equation solver. 
P Array for holding sums of various powers of X. 
I,J, К, Loop indices. 
О, б, XZ Work variables. 
M Mean value of Y. 
T Percent goodness of fit. 
XV Specific X point for which to calculate Y. 
YV Y value corresponding to XV. 


CURVE 201 


SUGGESTED PROJECTS 


1. No provision for modifying the data is incorporated into the pro- 
gram. Often it would be nice to add, subtract, or modify parts of 
the data after some results are seen. Build in a capability to do this. 

2. You may desire other forms of output. A useful table for many 
applications might include the actual X values, calculated Y val- 
ues, and/or percentage errors in Y. 

3. Sometimes certain points (or certain regions of points) are known 
to be more accurate than others. Then you would like to weight 
these points as being more important than others to be fit correctly. 
The least squares method can be modified to include such a weight- 
ing parameter with each data pair. Research this technique and 
incorporate it into the program. (Note: you can achieve some 
weighting with the current program by entering important points 
two or more times. There is a certain danger to this, however. You 
must only ask for a solution with D less than the number of unique 
data points. A division by zero error may result otherwise.) 

4. Often you wish to try successively higher degree polynomials until 
a certain minimum percent goodness of fit is obtained. Modify the 
program to accept a minimally satisfactory percent goodness of fit 
from the user. Then have the program automatically try various 
polynomial fits until it finds the lowest degree fit, if any, with a 
satisfactory goodness of fit. 
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DIFFEQN 


PURPOSE 


Differential equations express functions by giving the rate of 
change of one variable with respect to another. This type of relation 
occurs regularly in almost all the physical sciences. The solution of 
these equations is necessary in many practical engineering problems. 

For many such equations, a closed form (or exact analytical ex- 
pression) solution can be obtained. However, for just as many, no 
such “simple” solution exists. The equation must then be solved 
numerically, usually by a computer program such as this. 

There are many types and classes of differential equations. This 
program solves those of a simple type; namely, first order, ordinary 
differential equations. This means that the equation to be solved can 
be written in the form 


^ — (any function of X, Y) 


Here, X is the independent variable and Y is the dependent variable. 
The equation expresses the derivative (or rate of change) of Y with 
respect to X. The right-hand side is an expression which may involve 
X and/or Y. 

To use the program, you must supply it with the differential equa- 
tion to be solved. The procedure used to do this is explained in the 
"How To Use It" section. 

A technique known as the "fourth-order, Runge-Kutta" method is 
used to solve the equation. Space limitations prevent any detailed 
explanation of it here. However, it is discussed well in the numerical 
analysis books referenced in the bibliography. 
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The program allows two forms of output. You can have the an- 
swers tabulated in columns or plotted graphically. 


HOW TO USEIT 


The first thing you must do is enter the differential equation into 
the program. This must be done at line 200. Currently this line 
contains a GOTO statement. This GOTO will cause an error message 
to be displayed if the program is run before you have changed line 
200. The form of line 200 should be: 


200 D = (your function of X, Y) 


D represents dY/dX. GOSUBs are made to line 200 with X and Y set 
to their current values. Thus, when each RETURN is made, D will 
be set to the appropriate value of dY/dX for that given X and Y. If 
necessary, you may use the lines between 200 and 899 to complete the 
definition of D. Line 899 already contains a RETURN statement so 
you do not need to add another one. 

The program begins by warning you that you should have already 
entered the equation at line 200. You acknowledge that this has been 
done by hitting the C key to continue. 

Now the various initial conditions are input. You are prompted for 
them one at a time. They consist of: the initial values of X and Y, the 
stepsize interval in X at which to display the output, and the final 
value of X. 

You now have a choice between two types of output. Enter a T for 
tabular output or a G for graphical output. The tabular form is simply 
a two-column display of the corresponding values of X and Y. 

The graphical output plots the values of Y along a horizontal axis 
as each corresponding X value is displayed on successive lines of the 
screen. This graphical display requires you to input the minimum and 
maximum values of Y that will be used on the Y axis. You will be 
prompted for them if this output form is chosen. An asterisk (*) is 
used to plot the value of Y. If, however, the value of Y is “off-scale,” 
an inverse asterisk is plotted at the appropriate edge of the graph. 

With the input phase completed, the program initializes things to 
begin the output. A question mark will be displayed in the lower left 
of the screen, telling you the program is waiting for you to hit any key 
to begin the output. 

The output is displayed at each interval of the stepsize until the 
final value of X is reached. Output may temporarily be halted at any 
time by simply hitting any key. This will stop the display until you hit 
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any key to resume the output. The output may be started and stopped 
as often as desired, thus enabling you to leisurely view intermediate 
results before they scroll off the screen. It is applicable to both the 
tabular and graphical forms of output. 


SAMPLE PROBLEM AND RUN 


Problem: A body, originally at rest, is subjected to a force of 
2000 dynes. Its initial mass is 200 grams. However, while it moves, it 
loses mass at the rate of 1 gram/sec. There is also an air resistance 
equal to twice its velocity retarding its movement. The differential 
equation expressing this motion is: 


dY (2000-2Y) where Y = velocity (cm./sec.) 
dX (200-Х) X=time (sec.) 


Find the velocity of the body every ten seconds up through two and 
one-half minutes. Also, plot this velocity as a function of time. 

Solution and Sample Run: The solution and sample run are illus- 
trated in the accompanying photographs. 


коеф ё 


%%4%%4%%%% 


COME. HIT 


- 
- 
ж 
- 
- 
- 
- 
- 


Seer eres, 


The operator hits a key to exit from the program. Then he enters the 
differential equation into line 200. He types RUN to restart the program. 
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The operator has hit the “C” key. The program responds by beginning the 
input phase. The operator has responded to the first request. 


The operator has completed the input and requested tabular output. The 
program signals with a question mark that it is waiting for him to hit any 
key. It will not continue the run until he does so. 
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ж 
j 


Асма ы Фаш дА ш a фаш ma 


МЛ лаш и 
іш ізшіш 
іш «d 


Ніл jar 


by d'a 


a 

+ 

4 
za 
c 


Juq'u de еше du 


іы 


a a aaa aaa 
pa be TI] dU aaa 


tuku equal l d Di 


SON фа Co uf U da Pura 
кер ракат ts Ue 


ПЕРИ 
lur 


Sas at 


The operator has hit a key and the program responds with the tabulated 
output. X is time in seconds and Y is velocity in cm/sec. 


The program is rerun requesting graphical output. Before this photo, the 
program requested a minimum and maximum value of Y to use on the Y 
axis. Values of 0 and 1000 respectively were entered. The program 
displays the desired graph. 
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PROGRAM LISTING 


10 REM DIFFEQN 

15 REM COPYRIGHT 1984 DILITHIUM PRESS 

120 DIM Ғ%(10) 

130 GRAFHICS O:PRINT CHR$(125) 

150 GOTO 1200 

200 БОТО 3000:REM REDEFINE THIS LINE TO BE D-(cYO 
UR FUNCTION OF X,Y) 

B99 RETURN 

FOO REM XXXXXXXXXXXX*X**X*xkkx.xx*kxk 

910 REM DEFINE THE DIFFERENTIAL 

920 REM EQUATION BETWEEN LINES 

930 REM 200 AND 899 

940 REM 

950 REM LINE 200 MUST БЕ 

960 REM OVERWRITTEN, MAKING IT 

970 REM THE FIRST LINE OF THE 

980 REM EQUATION 

990 REM KKKKKKKKKKKKKKKKKKEKKKEKEKREK 

1000 IF F$(1,1)0-"T" THEN PRINT XX,YY:GOSUB 1160: 
RETURN 

1010 F=(YY-YL) / CYH-YLO : V2 INT (17+20kF +0. 5) 

1020 (2242: IF YY<YL THEN V=17:C=170 

1030 IF ҮҮ>ҮН THEN V=37:C=170 

1040 PRINT XX;:POSITION 16,23:PRINT СНАФ (124)5:F 
OSITION У, 25 

1050 PRINT СНКФ (С) : :POSITION 28, 25: РКІМТ СНКФ (12 
4) 

1060 60808 1160:RETURN 

1100 PRINT CHR: C320; :£FOUR 0=1 TO 58: РКІМТ "ж": :NE 
XT Q:PRINT :RETURN 

1110 PRINT CHR$(32):; "x"; POSITION 38,PEEK (84) : PR 
INT "X":RETURN 

1120 POSITION 38,PEEK(84):PRINT "X":RETURN 

1160 Q=PEEK (764): IF Q=255 THEN RETURN 

1170 POKE 764,295 

1180 Q=PEEK(764):IF 0=:255 THEN 1180 

1190 POKE 764,255: RETURN 

1200 POKE 82,0: PRINT CHR$ (125) 

1210 PRINT "FIRST ORDER DIFFERENTIAL EQUATION SO 
LVER" 

1220 GOSUB 1100:GOSUB 1110 

1230 PRINT " Ж THE DIFFERENTIAL EQUATION MUST BE 
"s: GOSUB 1120 

1240 PRINT " Ж DEFINED AT LINE 200. THE FORM IS 
"12150808 1120 

1250 GOSUB 1110:PRINT " x 200 D 
ON OF X,Y)"s:G0SUB 1120 

1260 GOSUB 1110:FRINT " Ж WHERE D 
UB 1120 


(YOUR FUNCTI 


DY/DX. "3:GOS 
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1270 GOSUB 1110:GOSUB 1100:GOSUB 1110 
1280 PRINT " Ж IF THIS HAS ALREADY BEEN DONE, HI 
T x " 
1290 PRINT " Ж THE °C’ KEY TO CONTINUE";:GOSUB 1 
120 
200 GOSUB 1110:PRINT " Ж IF NOT, HIT ANY OTHER 
KEY. THEN"; : 50808 1120 
1310 PRINT " X ENTER LINE 200 AND RE-RUN THE";:G 
OSUB 1120 
1320 PRINT " ж PROGRAM. ";:GOSUB 1120 
1330 БОБОВ 1110:GOSUB 1100 
1400 TRAP 4000:R-PEEK(754):1F R=255 THEN 1400 
1405 POKE 764,255:1Е R<>18 THEN POKE 82,2:END 
1410 XZ=1:PRINT :PRINT " INITIAL VALUE OF X";:IN 
PUT XX 
1420 XZ=2:PRINT :PRINT " INITIAL VALUE OF Y";:1N 
PUT YY:YzYY:XsXX:GOSUB 200 
1450 XZ=3:PRINT :PRINT " STEPSIZE IN X";:INPUT D 
X 
1440 XZ-4:PRINT :PRINT " FINAL VALUE OF X";:1NPU 
T XF 
1450 PRINT :PRINT " OUTPUT FORM (T=TABLE, G=GRAP 
H)";:INPUT F$ 
1455 IF F$-"" THEN 1450 
1460 IF F$(1,1)4»"T" AND FS(1,1)<>"G" THEN 1450 
1470 IF F$(1,1)="T" THEN 1600 
1480 XZ=S:PRINT :PRINT " MINIMUM Y FOR THE GRAFH 
AXIS";:INPUT YL 
1490 X2=6:PRINT :PRINT " MAXIMUM Y FOR THE GRAPH 
AXIS";:INPUT ҮН 
1500 IF YH>YL THEN 1600 
1810 PRINT 
1520 PRINT " ** ERROR -- MAX Y MUST BE > MIN Y" 
1550 PRINT СНАФ (255) :60Т0 1480 
1600 PRINT :GOSUB 1100:PRINT 
1610 PRINT " THE FOLLOWING QUTPUT CAN BE HALTED" 
1620 PRINT " BY HITTING ANY KEY. IT CAN THEN BE" 
1630 PRINT " RESUMED BY HITTING АМҮ KEY. THIS МА 
Y " 
1640 PRINT " BE DONE AS OFTEN AS DESIRED.":PRINT 


1650 PRINT " WHEN THE QUESTION MARK (0?) APPEARS” 
1660 PRINT " HIT ANY KEY TO BEGIN THE OUTPUT." 
1670 PRINT :GOSUB 1100:PRINT :POKE 764,255 

1700 IF F$(1,1)-"T" THEN PRINT "X","Y":GOTO 1800 
1710 POSITION 17,23:PRINT "YMIN = "; YL 

1720 POSITION 17,23:PRINT "YMAX = "s: YH 

1730 PRINT :PRINT " X"3:POSITION 17,23:PRINT "ҮМ 
IN"; :FOSITION 34,23:PRINT "YMAX" 

1740 POSITION 16,23 

1750 PRINT CHRS(124) "+в р CHR 
$0124) 1 
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1800 РКІМТ :PRINT “?"; 

1810 IF РЕЕК (764) «255 THEN 1810 

1815 РОКЕ 764,255 

1820 PRINT СНАФ (230) СНК%С3522;СННФСЗОҘ; 

1830 GOSUB 1000 

1900 Q=XX+DX: IF QcXF*1.0E-OS THEN 1910 

1905 POKE 82,2: END 

1910 XXX: YzYY:GOSUB 200:kO0-D: X=XX+DX/2: Y=VY+KOkK 
DX/2 

1920 GOSUB 200:K1zD: Y-YY*K1X*DX/2: GOSUB 200:K2=D 
1950 XsXX*DX: Ү=ҮҮ+К2Ж0Х: GOSUB 200: K 32D 

1940 DV=DXK (KO*2XK1-2kK24K2)/6 

1950 YYzYY-DY: XXsXX*DX: 50508 1000 

1960 GOTO 1900 

5ООО FRINT :PRINT " kk ERROR! kk — YOU HAVE NOT 
DEF INED" 


5О1О PRINT " THE DIFFERENTIAL EQUATION IN LINE 2 
оо" 

J020 POKE 82,2:ҒКІМТ CHR$ (255) : END 

4000 IF РЕЕК(195)<>8 THEN 4100 

4005 TRAP 4000 

4010 PRINT "  XXILLE(GAL. ENTRY Xx" 

4020 ON XZ GOTO 1410,1420,1430,1440,1480,1490 
4100 POKE 82,2:END 


EASY CHANGES 


1. If you have already entered the differential equation and wish to 
skip the introductory output, add this line: 


1215 PRINT:GOTO 1410 


This will immediately begin the input dialog. 
2. If you wish to use negative stepsizes, line 1900 must be changed 
to: 


1900 Q=XX+DX:IF Q» XF—1.0E—05 THEN 1910 
MAIN ROUTINES 


120- 150 Initializes, begins execution. 

200- 899 User-supplied subroutine to define D. 
1000-1060 Displays output. 
1100-1120 Subroutines to format messages. 
1160-1190 Subroutine to stop and start output. 
1200-1330 Displays initial messages. 
1400-1530 Gets user's inputs. 
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1600-1670 Displays additional messages. 

1700-1750 Initializes output display. 

1800-1830 Waits for user to hit a key to start the output. 
1900-1960 Сотршев each step. 

3000-3020 Error message. 

4000-4100 Error trap for illegal conditions. 


MAIN VARIABLES 
D Value of dY/dX. 


X,Y Values of X, Y on current step. 
XX,YY Values of X, Y on last step. 


DX Stepsize in X. 

XF Final value of X. 

F$ Output flag string (T —table, G = graph). 
YL, YH Minimum, maximum values of Y plot axis. 
F Fractional distance of graphical point along Y axis. 
У Tab position for graphical output. 

C CHR$ argument for graphical output. 
К0,КІ, Runge-Kutta coefficients. 

K2, K3 

Q, XZ, R Work variables. 

J Loop index. 

SUGGESTED PROJECTS 


1. Modify the program to display the tabular output followed by the 
graphical output. During the tabular phase, the minimum and 
maximum values of Y can be saved and automatically used as the 
plot limits for the graphical output. 

2. The value of dY/dX as a function of X is often a useful quantity to 
know. Modify the program to add it to the columnar display and/or 
the graphical display. 

3. The inherent error in the calculation depends on the stepsize 
chosen. Most cases should be run with different stepsizes to insure 
that the errors are not large. If the answers do not change much, 
you can be reasonably certain that your solutions are accurate. 
Better yet, techniques exist to vary the stepsize during the calcula- 
tion to insure that the error is sufficiently small during each step. 
Research these methods and incorporate them into the program. 

4. The program can be easily broadened to solve a set of coupled, 
first order, differential equations simultaneously. This would 
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greatly increase the types of problems that could be solved. Re- 
search this procedure and expand the program to handle it. 


GRAPH 


PURPOSE 


Is a picture worth a thousand words? In the case of mathematical 
functions, the answer is often “yes.” A picture, i.e., a graph, enables 
you to see the important behavior of a function quickly and accu- 
rately. Trends, minima, maxima, etc., become easy and convenient 
to determine. 

GRAPH produces a two-dimensional plot of a function that you 
supply. The function must be in the form Y =(any function of X). The 
independent variable X will be plotted along the abscissa (horizontal 
axis). The dependent variable Y will be plotted along the ordinate 
(vertical axis). You have complete control over the scaling that is used 
on the X and Y axes. 


HOW TO USE IT 


Before running the program, you must enter into it the function to 
be plotted. This is done as a subroutine beginning at line 200. It must 
define Y as a function of X. The subroutine will be called with X set 
to various values. It must then set the variable Y to the correct 
corresponding value. The subroutine may be as simple or complex as 
necessary to define the function. It can take one line or several 
hundred lines. Line 999 is already set as a RETURN statement, so 
you need not add another one. 

Having entered this subroutine, you are ready to run the program. 
The program begins by warning you that it assumes the function has 
already been entered at line 200. It will then ask you for the domain 
of X, i.e., the lowest and highest values of X that you wish to have 
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plotted. Values can be positive or negative as long as two conditions 
are met: the highest value must be algebraically larger than the lowest 
value and the number of characters the ATARI uses to express each 
value must be no more than eight. 

Now you must choose the scale for Y. To do this intelligently, you 
probably need to know the minimum and maximum values of Y over 
the domain of X selected. The program finds these values and dis- 
plays them for you. You must then choose the minimum and max- 
imum values you wish to have on the Y scale. Again, any two values 
are acceptable as long as they satisfy the two conditions given above. 

The program will now request that you hit any key to display the 
plot of your function. Each axis is 20 tick-marks long, with the origin 
defined as the minimum scale values of both X and Y. The minimum, 
middle, and maximum values on each scale are displayed appropri- 
ately. (Note: in certain cases, the program will not display the middle 
scaling value for one or both axes. However, the highest and lowest 
scaling values for each axis will always be present.) 

The actual plot is drawn with eight times the resolution shown by 
the axes tick-marks. That is, 160 values of X and Y are plotted. This 
is accomplished by taking advantage of the ATARTS high-resolution 
graphics capabilities. 

If a value for Y should be off-scale, a special "enlarged line" will 
be displayed at the appropriate value of X. If the actual value of Y is 
too large, it will be plotted at the maximum Y value. Similarly, it will 
be drawn at the minimum Y value if it is too low or if its value is 
exactly the minimum Y value. 

After the plot is drawn, you can exit the program and return to text 
mode by hitting any key. 
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SAMPLE RUN 


After loading the program, the operator enters line 200 to request the 
graph Y =SIN(X). RUN is typed to begin the program. 


R ñ P H 
WARMING! 
THE SUBROUTINE AT LINES 
289-333 I5 ASSUMED TO DEFINE 
т аз а FUNCTION OF х 


É £ £ E * £ 


ж 
ж 
ж 
ж 
е 
ж 
ж 


LOWEST VALUE OF х8 


The program initiates the input dialog. 
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The input dialog transpires. The operator asks that the domain of X be 
0—6.28. The program responds by showing the maximum and minimum 
values of Y over this domain. The operator chooses an appropriate scale 
for the Y axis. 


The graph is displayed as requested. The program waits for the operator 
to hit any key to return to text mode. 
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PROGRAM LISTING 


10 REM GRAFH 

15 REM COPYRIGHT 1984 DILITHIUM FRESS 

110 FOKE 82,0 

120 DIM XL$(10),XU$(10),XM$ (10), YL$(10) , YU$ (10), 

YM$ (10), D$ C10) , AS C10) 

150 GOTO 1200 

170 REM 

180 REM ** ENTER SUBROUTINE AT 200 ЖЖ 

190 REM 

СОО КЕМ ЖЖЖ Y=F(X) GOES HERE ЖЖЖ 

999 RETURN 

1200 GRAPHICS О:РКІМТ CHR$(125): TRAF 6000 

1210 POSITION 15,1:РКІМТ "(5 R A FP HY: PRINT 

1220 PRINT " XKKXKXKKKKKK WARNING! KKK KKKKKKKKK" 

1230 GOSUB 1290 

1240 FRINT " x THE SUBROUTINE AT LINES"; :G0S 

UB 1295:GÜGUE 1290 

1250 PRINT "Ж 200-999 IS ASSUMED TO DEFINE"::6G 

QSUB 1295:6G0G8UE 1290 

1260 FRINT “ж Y AS A FUNCTION OF X";:GOSUB 
1293: POSUER 1290 

1270 PRINT " ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖКЖККЖЖЖЖКЖЖККККККЖЖ" 

1280 PRINT :GOTO 1300 

1290 PRINT CHR$(OUI2);:"X"::POSITION 24, PEEK (84) : РК 

INT "x":RETURN 

1295 FOSITION 24,FEEK (84) :PRINT "x*":RETURN 

1300 XZz1:PRINT :PRINT " LOWEST VALUE OF X";: IMF 

UT XL 

1510 XLS=STR$ (XL) з= ЕМХ Ф) 

1320 IF (28 THEN PRINT :РКІМТ " ЖЖЖ TOO MANY DIG 

ITS ~ PLEASE REDUCE":GOTO 1500 

1330 XZ-22:PFRINT :PRINT " HIGHEST VALUE OF X": :IN 

FUT XU 

1540 IF XUZ-XL THEN FRINT :РКІМТ " ЖЖЖ BAD X RAN 

GE Xxx":(GQTO 1500 

1550 XUS=STRS (XU) :L=LEN(XU$) 

1360 IF 1.28 THEN PRINT PRINT " ЖҰЖ TOO MANY DIG 

ITS - PLEASE REDUCE: GOTO 1320" 

1570 XM=(XL4+XU) 72: XMS=STRBCXM) 

1:80 IF LEN(OXM$) 29 THEN XM#=CHR$ (22) 

1400 DX-(OUXU-XL) 7160: X«XL.: БОБОВ 200: МЕУ: МХЕ 

1410 FOR J=1 TO 160: XzXL*JXDX: GOSUB 200 

1420 IF Ү>МХ THEN MX=Y 

1420 IF Ү<ММ THEN MN=Y 

1440 NEXT J 

1450 PRINT :FRINT " OVER THIS RANGE OF X:" 

1460 PRINT " MAXIMUM Y = "MX 

1470 PRINT f MINIMUM Y = ":MN:FRINT 

1480 PRINT " NOW CHOOSE THE SCALE FOR Y": PRINT 
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1490 XZ-3:FRINT " MINIMUM Y SCALE VALUE":: INPUT 

YL PRINT 

1900 YL$=STR$ (YL) :L=LEN(YL$) 

1510 IF 128 THEN PRINT " xxx TOO MANY DIGITS ~ P 
LEASE REDUCE":PRINT :GOTO 1490 

1520 XZ=4:PRINT " MAXIMUM Y SCALE VALUE": : INFUT 

YU: PRINT 

1530 IF YU<=YL THEN PRINT " XX* BAD Y RANGE xxx" 
:GOTO 1450 

1940 YUS=STR$ (YU) :L = ЕМ C YUS$) 

1550 IF L»8 THEN PRINT " Xxx TOU MANY DIGITS ~ P 
LEASE REDUCE":PRINT :GOTO 1520 

1560 YM=(YU+YL.) /2: YM$-STR$ (ҮМ) 

1570 IF (ЕМ(ҰМФ) 29 THEN ҮМФ-СНК%(22) 

1600 PRINT " HIT АМҮ KEY TO SEE THE GRAFH, TH 
EN" 

1610 PRINT " HIT ANY KEY TO RETURN TO TEXT MODE. 
1620 POKE 764,255: PRINT 

1630 IF PEEK (764) =255 THEN 1620 

1640 FOKE 764,255 

2000 GRAPHICS 84-16: SETCOLOR 2,0,0: SETCOLOR 1,15, 
14:COLOR 1 

2100 НР-107:УРж172 

2110 PLOT HF,VP-160: DRAWTO HP. VF: DRAWTO HF+160,V 
F 

2120 FOR JsVF-160 TO VP STEP 8 

2130 PLOT HFP-4,J:DRAWTO HF,J:NEXT J 

2140 FOR J=VF-160 TO УР STEF 80 

2150 PLOT HP-8,0:DRAWTO HP,J:NEXT J 

2160 FOR J=HF TO HP+160 STEF 8 

2170 PLOT J,VP:DRAWTO J,VP+4:NEXT J 

2180 FOR J=HF TO HF+160 STEP 80 

2190 PLOT J,VP:DRAWTO J,VP+8:NEXT J 

2200 PLOT HF+164,VFP-4:DRAWTO HF+172, VF +4 

2210 PLOT HP+164,VP+4:DRAWTO HP+172,4VP-4 

2220 PLOT HF-4,VP-172:DRAWTO HF, VP-168 

2230 DRAWTO HP-4,VF-172 

2240 PLOT HP, VF-168:DRAWTO HF, VF-164 

2300 HzsHP-20: V=VP-1635:AS=YUS: GOSUB S000 

2310 Н=НР-20: V=VP—-83: AS=YM$: GOSUB 5000 

2320 H=HF-20:V=VF-3:A$=YL$:GOSUBR 5000 

2540 Н=НЕ: V=VFP+12:AS=XL$:GOSUB 5000 

2350 H=HP+80:V=VP+12:A$=XM$3GOSUB SOOO 

2360 H=HF+160: V=VP+12:AS=XUS:GOSUB 5000 

2400 DxX=(XU-XL) 7/160: DY=(YU-YL) /160 

2410 AF=0:X=XL:GOSUB 200 

2420 IF Y»YU THEN Y=YU:AF=1 

2430 IF ҮСҮ THEN Y=YL:AF=1 

2440 YY=(Y-YL) /DYs HzHP : VzUF-Y Y 

2450 PLOT H,V 


GRAPH 219 


2460 
2500 
2510 
2520 
2550 
2540 
2550 
2560 
2565 
2570 
2000 
5010 
5020 
$100 
3110 
$120 
$200 


IF АҒ-і THEN GOSUE 3500 

FOR 1-1 TO 160:X=XL+dkDX:GOSUB 200 

IF Y>YU THEN Y=YU:AF=1 

IF Y<=YL THEN Y=YL:AF=1 

YYs (Y -YL) /DY: H=HP +d : Ve VE-YY 

DRAWTO H,V 

IF AF=1 THEN GOSUB 3500 

NEXT J 

IF РЕЕК (764) =255 THEN 2565 

GRAPHICS O:POKE 764, 255:РОКЕ 82, 2:END 
PLOT H,V:DRAWTO H4,V:DRAWTO НД, У 
DRAWTO H,V6: DRAWTÜ H,V 

RETURN 

PLOT H4,V:DRAWTO H,V:DRAWTO H,V6 
DRAWTO H4,V6:PLOT H,V3:DRAWTO H4,V%3 
RETURN 

PLOT H,VZ:DRAWTO H4,V3:PLOT H+2,V+1:DRAWTO 


H+2, V+, 


$210 
S300 
3400 
$410 
3420 
3500 
3510 
5520 
S530 
4100 
4110 
4200 
4210 
4220 
43500 
8510 

520 
4400 
4410 
4500 
4510 
4520 
4600 
4610 
4700 
4710 
4800 
4810 
4820 
4900 
4910 
2000 
=V+6 


RETURN 

PLOT H,VZ:DRAWTO HA4,VZ: RETURN 
PLOT H+1,V+4:DRAWTO H+3,V+4 
DRAWTO H+3,V6:DRAWTO H+1,V6 
DRAWTO H+1,V+4: RETURN 

DRAWTO H-1,V-1:DRAWTO H-1,V+1 
DRAWTO H+1,V+1:DRAWTO H*1,V-1 
DRAWTO H-1,V—1:DRAWTO H,V 

AF=0: RETURN 

PLOT H+2,V:DRAWTO H*2,V6 

RETURN 

PLOT H,V: DRAWTO H4,V 

DRAWTO H4,VZ:DRAWTO H,V3 

DRAWTO H,V6:DRAWTO H4, Vo: RETURN 
PLOT H,V:DRAWTO H4,V 

DRAWTO H4,V6:DRAWTO H, V6 

PLOT H,V3:DRAWTO H4,V3:RETURN 
PLOT H,V:DRAWTO H,VZ: DRAWTO НА, V3 
PLOT H+3,V:iDRAWTO H«2,V6: RETURN 
PLOT H4,V:DRAWTO H,V 

DRAWTO H,V3:DRAWTO H4,V3 

DRAWTO H4,V6:DRAWTO Н, V6: RETURN 
PLOT H,V:DRAWTO H,V6: ОКАМТО H4,V6 
DRAWTO H4,V3:DRAWTO H,VZ: RETURN 
PLOT H,V:DRAWTO H4,V:DRAWTO на, V2 
DRAWTO H, V6: RETURN 

PLOT H,V:DRAWTO H4,V:DRAWTO на, ма 
DRAWTO H,V6:DRAWTO H,V 

PLOT H,V3:DRAWTO H4,V3: RETURN 
PLOT H4,V6:DRAWTO H4,V: DRAWTO H,V 
DRAWTO H,V3:DRAWTO H4,V3: RETURN 
FOR JeLEN(A$) TO 1 STEP —1:H4=H+4:V3=V+3:V6 
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SO10 D$-A$(J.J):1F D$2"9" THEN 5040 

SOLS IF D$z"O" THEN 5040 

5016 D=VAL (D$) 

3020 IF р=0 THEN 3040 

ото ON D GOSUB 4100, 4200, 4200, 4400, 4500, 4600, 47 
OO, 4800,4900:G0TO 5090 

8040 IF D$-"O" THEN GOSUB 5000:60Т0 S090 

S050 IF ПФч"Е" THEN GOSUB 3100:GOTO 5090 

БОФО IF Beer THEN GOSUR 3200:GO0TO 5090 

$070 IF D$-"-" THEN GOGUB 5500:060Т0 3090 

SOBO IF D$-"." THEN GOSUB 5400 

5090 H=H-B: NEXT J: RETURN 

6000 IF FEEK(195)<>8 THEN 6050 

6010 TRAP 6000:PRINT :PRINT " жж ILLEGAL ENTRY Ж 
X" SPRINT 

6020 ON XZ GOTO 1200,1220,1490,1520 

6050 END 

EASY CHANGES 


1. You may want the program to self-scale the Y axis for you. That is, 
you want it to use the minimum and maximum Y values that it finds 
as the limits on the Y axis. This can be seomplished by adding the 


following lines: 


1443 IF LEN(STR$(MX)) > 8 OR LEN(STR$(MN)) > 8 


THEN 1450 


1444 IF MX < =MN THEN 1450 
1445 YUZ MX:YL-MN:PRINT 


1447 YUS=STR$(YU):YL$= 


STR$(YL):GOTO 1560 


(Note: on rare occasions, the program will not be able to perform 
the desired self-scaling. In these cases, the program will revert to 
requesting the Y scaling from you.) 


2. Do you sometimes forget to enter the subroutine at line 200 despite 
the introductory warning? As is, the program will plot the straight 
line Y —0 if you do this. If you want a more drastic reaction to 
prevent this, change line 200 to read: 


200 PRINT:PRINT “DEFINE SUBROUTINE AT LINE 


200”: END 
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Now, if you don't enter the actual subroutine desired, the program 
will stop after printing the warning message to define the sub- 
routine. 


MAIN ROUTINES 


110— 150 Initializes variables, dimensions arrays, begins 
execution. 
200- 999 User-supplied subroutine to evaluate Y as a function 
of X. 
1200-1295 Displays introductory warning. 
1300-1380 Gets X scaling from user. 
1400-1570 Determines the minimum, maximum Y values; gets Y 
scale from user. 
1600-1640 Waits for user to hit any key. 
2000-2240 Draws plot axes. 
2300-2360 Labels each axis. 
2400-2570 Draws plot and terminates program. 
3000-3420 Subroutine to draw characters O, E, +, — in high 
resolution. 
3500-3530 Subroutine to draw off-axis line at H,V. 
4100-4910 Subroutines to draw digits 1-9 in high resolution. 
5000-5090 Subroutine to draw scaling values. 
6000-6050 Error trap for program errors. 


MAIN VARIABLES 


XL, XM, Lower, middle, upper scale values of X. 
XU 

YL, YM, Lower, middle, upper scale values of Y. 
YU 

DX,DY Scale increments of X, Y. 

X,Y Current values of X, Y. 

XL$, String representation of XL, XM, XU. 
XM$, 

XU$ 

YL$, String representation of YL, YM, YU. 
YM$, 

Yu$ 
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D$, A$ Temporary string variables. 


D Numeric value of D$. 
H,V Horizontal, vertical position in hi-res units. 
J Loop index. 


MN, MX Minimum, maximum values of Y. 
XZ,L Work variables. 
HP, VP Horizontal, vertical position of axes origin. 


YY Y direction offset in hi-res units. 

AF Y position flag (0—in bounds, 1 —out of bounds). 
H4, V3, H,V offsets. 

V6 

SUGGESTED PROJECTS 


1. Determine and display the values of X at which the minimum and 
maximum values of Y occur. 

2. After the graph is plotted, allow the user to obtain the exact value 
of Y for any given X. 


INTEGRAL 


PURPOSE AND DEFINITION 


The need to evaluate integrals occurs frequently in much scientific 
and mathematical work. This program will numerically integrate a 
function that you supply using a technique known as Simpsons rule. 
It will continue to grind out successive approximations of the integral 
until you are satisfied with the accuracy of the solution. 

Mathematical integration will probably be a familiar term to those 
who have studied some higher mathematics. It is a fundamental 
subject of second-year calculus. The integral of a function between 
the limits x =£ (lower limit) and х =u (upper limit) represents the area 
under its curve; i.e., the shaded area in Figure 1. 

We may approximate the integral by first dividing up the area into 
rectangular strips or segments. We can get a good estimate of the 
total integral by summing the areas of these segments by using a 
parabolic fit across the top. For those who understand some mathe- 
matical theory, Simpson’s rule may be expressed as 


x=u 


| f(x) axe RO) 
v N/2 (N-2)2 


44 Y) flt-AQj-00142 » zai] 
ігі j= 


Here N is the number of segments into which the total interval is 
divided. N is 4 in the diagram. 
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Figure 1. The Integral of f(x) 


For a good discussion of the numerical evaluation of integrals see: 
McCracken, Dorn, Numerical Methods and FORTRAN Program- 
ming, New York, Wiley, 1964, p. 160. Don't let the word “FOR- 
TRAN" scare you away. The discussions in the book are independent 
of programming language with only some program examples written 
in FORTRAN. 


HOW TO USEIT 


The program begins with a warning! This is remind you that you 
should have already entered the subroutine to evaluate Y as a function 
of X. This subroutine must start at line 200. More about it shortly. 

You will then be asked to provide the lower and upper limits of the 
integration domain. Any numerical values are acceptable. It is not 
even necessary that the lower limit of X be smaller than the upper 
one. 
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The program will now begin displaying its numerical evaluations 
of the integral. The number of segments used in the calculation 
continually doubles. This causes the accuracy of the integral to in- 
crease at the expense of additional computation time. For most func- 
tions, you should see the value of the integral converging quickly to a 
constant (or near constant) value. This, of course, will be the best 
numerical evaluation of the integral at hand. 

When you are satisfied with the accuracy of the solution, you must 
hit BREAK to terminate the program. If not, the program will run 
forever (assuming you can pay the electric bills). The amount of 
computation is approximately doubled each step. This means it will 
take the computer about the same amount of time to compute the next 
step that it took to compute all the previous steps. Thus, it will soon 
be taking the ATARI hours, days, and weeks to compute steps. 
Eventually, round-off errors begin degrading the results, causing a 
nice, constant, converged solution to change. 

The function to be integrated can be as simple or as complicated as 
you desire. It may take one line or a few hundred lines of code. In any 
case, the subroutine to express it must start at line 200. This sub- 
routine will be continually called with the variable X set. When it 
returns, it should have set the variable Y to the corresponding value 
of the function for the given X. The subroutine must be able to 
evaluate the function at any value of X between the lower and upper 
bounds of the integration domain. 

If your function consists of experimental data at discrete values of 
X, you must do something to enable the subroutine to evaluate the 
function at intermediate values of X. We recommend one of two 
approaches. First, you could write the subroutine to linearly interpo- 
late the value of Y between the appropriate values of X. This will 
involve searching your data table for the pair of experimental X 
values that bound the value of X where the function is to be evalu- 
ated. Secondly, the program CURVE presented elsewhere in this 
section can produce an approximate polynomial expression to fit your 
experimental data. This expression can then be easily entered as the 
subroutine at line 200. 

By the way, Simpsons rule is exact for any polynomial of degree 
three or less. This means that if the function can be written in the 
form 


Y =A*XA3 + B¥XA2+C*X+D 


where A, B, C, and D are constants, the program will calculate the 
integral exactly even with only two segments. 
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SAMPLE RUN 


The sample run illustrates the following integration: 
x=] 
| ы 5 dx 
xzo [+x 
This integral has the theoretical value of т (pi) as the correct answer! 
Pi, as you may know, has the value 3.1415926535. . . .Before the run 
is started, the above function is entered at the line 200. Note how the 


function converges and then diverges as errors build up in the 
calculations. 


SEAGY 


299 TZ24-CLIt**4*44) 


RUNE 


The operator enters the integrand function at line 200 and types RUN to 
start the program. 
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The upper and lower bounds of the integration are entered as requested. 


prn e br en pe pe 


T| h b de da fa e de dat 


ей 


к 
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I 
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mt 


The results are computed up to 1024 segments. Then BREAK is pressed 
to terminate the calculation. 
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PROGRAM LISTING 


10 REM INTEGRAL 
15 КЕМ COPYRIGHT 1984 DILITHIUM PRESS 


150 GRAPHICS 


150 
170 REM 
180 REM 
190 REM 
200 REM 
999 RETURN 
1200 FRINT 
: PRINT 
1210 FRINT 
1220 БОЈЕ 
1230 PRINT 
1205 
1240 GOSUE 
1250 PRINT 


SUE 1285: GOSUE 


1260 PRINT 
1285: GOSUE 
1270 PRINT 
i280 PRINT 
1285 
1290 
ETURN 
1295 
1300 
г 
1310 
Uu 
1560 
1570 
1380 
1400 
1410 
1420 
1450 
1460 
1470 
1480 
1500 
1810 
1520 
1530 
1600 
1610 
1620 
1650 
2000 


PRINT 


TRAP 


РКІМТ 
PRINT 


FOR 


NEXT 


NEXT 


N=Nk2 
БОТО 


жж ENTER SUBROUTINE AT 


KKK Y=F(X) 


FOSITION 


XZ=2: PRINT :FRINT 


FOR J= 
DX= (J-L) ZN: T= 
X=L: GOSUB 
XU: GOSUB 
M=N/2: Z=0 
J= 
X=L+DXk(2kJ-1):GOSUB 
J: T=T+4xZ 
MzM-1: 
Z=O:FOR 02-і TO M 
XzL-DXX2XdJ: GOSUB 
J:T=T+2XZ 
A-DXXT/3 

РКІМТ М,А 


O:PRINT СНЕФ (129) 


N=2:G0TO 1200 


200 жж 
GOES НЕКЕ 

т INTEGRAL EY SIMPSON’S RULE": PRINT 
"KEKEKKEKKKKK WARNING! 


1290 
"x 


XXKKKKKKKKKKH 


THE SUBROUTINE AT LINES"; : GOSUB 


1290 
"ж 200-999 IS ASSUMED TO DEFINE";:60 
1290 
"ж Y AS А FUNCTION OF Хх"; : 50508 
1290 
ПКККККЖЖКККККККЖКККККККККЖКККЖЖКЖКЖ" 
:GÜTO 1295 

35, PEER (84) s PRINT 


"ж": RETURN 
"K's POSITION 35 


35, PEEK (84) РКІМТ "ЖЕК 


2000) 
XZ=1:F RINT : PRINT 


"LOWER LIMIT OF X"::1NFUT 
"UPPER LIMIT OF X"3: INPUT 
SPRINT : PRINT 

"# SEGS.", "INTEGRAL" 

1 TO 20:РКІМТ CHR$(t18): NEXT J: PRINT 


200: T-T«4Y 
200: T=T+Y 


1 TÜ M 
ZOO: Z=Z+Y 


IF МчО THEN 1600 


200: Z=Z+Y 


1400 
IF РЕЕК(1935)<>8 THEN 2050 
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2010 TRAP 2000:PRINT :PRINT "XX ILLEGAL ENTRY ЖЖ 
ZOZO IF XZ=1 THEN 1200 

2050 IF XZ=2 THEN 1310 

zOSO END 


EASY CHANGES 


к. 


. You might want the program to stop calculation after the integral 
has been evaluated for a given number of segments. Adding the 
following line will cause the program to stop after the integral is 
evaluated for a number of segments greater than or equal to 100. 


1615 IF N> =100 THEN END 


Of course, you may use any value you wish instead of 100. 

2. Perhaps you would like to see the number of segments change at a 
different rate during the course of the calculation. This can be done 
by modifying line 1620. To increase the rate of change, try 


1620 N=N*4 
To change it at a constant (and slower) rate, try 
1620 N=N+50 


Be sure, however, that the value of N is always even. 
MAIN ROUTINES 


130- 150 Initializes variables and goes to mainline routine. 
200- 999 User-supplied subroutine to evaluate f(X). 
1200-1295 Displays introductory messages and warning. 
1300-1310 Gets integration limits from operator. 
1360-1380 Displays column headings. 
1400-1420 Computes integral contribution from end points. 
1450-1480 Adds contribution from one summation. 
1500-1530 Adds contribution from other summation. 
1600-1630 Completes integral calculation and displays it. In- 
creases number of segments and restarts calculation. 
2000-2050 Error trap for input errors. 
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MAIN VARIABLES 

N Number of segments. 

J Loop index. 

L,U Lower, upper integration limit of x. 
DX Width of one segment. 

T Partial result of integral. 

M Number of summations. 

Z Subtotal of summations. 

A Value of integral. 

X Current value of x. 

Y Current value of the function y = f(x). 
XZ Error trap flag. 

SUGGESTED PROJECTS 


1. Research other similar techniques for numerical integration such 
as the simpler trapezoid rule. Then add a column of output com- 
puting the integral with this new method. Compare how the two 
methods converge toward the (hopefully) correct answer. 

2. Modify the program to compute answers to "double precision" or 
greater; i.e., at least fifteen significant digits. Try the function used 
in the Sample Run to see if you can calculate pi to this high degree 
of precision. 


SIMEQN 


PURPOSE 


This program solves a set of simultaneous linear algebraic equa- 
tions. This type of problem often arises in scientific and numerical 
work. Algebra students encounter them regularly — many "word" 
problems can be solved by constructing the proper set of simul- 
taneous equations. 

The program can handle up to 20 equations in 20 unknowns. This 
should prove more than sufficient for any practical application. 

The equations to be solved can be written mathematically as 
follows: 


А.Х, +A LX, + ... +A ;nXn=R, 
А.Х, +А,,Х,+ ... +А,мХм= В, 


ANiX, +АмХ,+ ... +АммХм =Rn 


N is the number of equations and thus the number of unknowns also. 
The unknowns are denoted X; through X,,. 

Each equation contains a coefficient multiplier for each unknown 
and a right-hand-side term. These coefficients (the A matrix) and the 
right-hand-sides (R, through Км) must be constants — positive, nega- 
tive, or zero. The A matrix is denoted with double subscripts. The 
first subscript is the equation number and the second one is the 
unknown that the coefficient multiplies. 
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HOW TO USEIT 


The program will prompt you for all necessary inputs. First, it 
asks how many equations (and thus how many unknowns) comprise 
your set. This number must be at least 1 and no more than 20. 

Next, you must enter the coefficients and right-hand-sides for each 
equation. The program will request these one at a time, continually 
indicating which term it is expecting next. 

Once it has all your inputs, the program begins calculating the 
solution. This may take a little while if the value of N is high. The 
program ends by displaying the answers. These, of course, are the 
values of each of the unknowns, X, through Хм. 

If you are interested, the numerical technique used to solve the 
equations is known as Gaussian elimination. Row interchange to 
achieve pivotal condensation is employed. (This keeps maximum 
significance in the numbers.) Then back substitution is used to arrive 
at the final results. This technique is much simpler than it sounds and 
is described well in the numerical analysis books referenced in the 
bibiliography. 


SAMPLE PROBLEM AND RUN 


Problem: A painter has a large supply of three different colors of 
paint: dark green, light green, and pure blue. The dark green is 30% 
blue pigment, 20% yellow pigment, and the rest base. The light 
green is 10% blue pigment, 35% yellow pigment, and the rest base. 
The pure blue is 90% blue pigment, no yellow pigment, and the rest 
base. The painter, however, needs a medium green to be composed of 
25% blue pigment, 25% yellow pigment, and the rest base. In what 
percentages should he mix his paints to achieve this mixture? 

Solution: Let X, = percent of dark green to use, 

X,- percent of light green to use, 
X, — percent of pure blue to use. 


The problem leads to these three simultaneous equations to solve: 


0.3 X,+0.1 Х,--0.9 X,—0.25 
0.2 X, +0.35 X, =0.25 
X, + Xt Хҙ-1.0 


The first equation expresses the amount of blue pigment in the mix- 
ture. The second equation is for the yellow pigment. The third equa- 
tion states that the mixture is composed entirely of the three given 
paints. (Note that all the percentages are expressed as numbers from 
0-1.) The problem leads to the following use of SIMEQN. 
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SAMPLE RUN 


ANEDU3 LINEAR EQUATION 


EGUATIONS IM THE 3ET^Z 


UNENOWNS HILL BE DENOTED 
JUGH A3 


————-.—m<nT.J ны нн 


НЕ PARAMETERS FOR EQUATION 1 


FP RODENT OF i43 
OF : 2: 
JF 4 3 

JIDE? 23 


ТЕН THE PARAMETERS FOR ERUATION 2 


< 


IENT OF 178 


The operator chooses to solve a set of three simultaneous equations and 
then enters the coefficients for the first equations. 


THE PARAMETERS FOR EQUATION 5 


The coefficients for the remaining two equations are entered and the 
computer provides the solution. The painter should use a mixture of 55 % 
dark green, 40% light green, and 5% pure blue. 
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PROGRAM LISTING 


10 REM SIMEON 

19 REM COPYRIGHT 1984 DILITHIUM FRESS 

130 GRAPHICS © 

150 M=20 

160 TRAP 3000 

200 PRINT СНКФ (125) 

210 PRINT "А SIMULTANEOUS LINEAR EQUATION SOLVER 


220 PRINT : PRINT 

500 Х2=1:РКІМТ "HOW MANY EQUATIONS IN THE ЗЕТ"; : 
INPUT N 

510 PRINT :N=INT(N) : IF N>O AND N«zM THEN 330 

520 РКІМТ " ЖЖ ERROR ЖЖ ІТ MUST BE BETWEEN 1-"3M 
sPRINT :60TO 300 

330 DIM AX(N,ND,RGND,VOND 

240 PRINT "THE "sN3" UNKNOWNS WILL БЕ DENOTED" 
350 PRINT "Хі THROUGH X"sN 

560 GOSUB 900:ҒОК 4-1 TO N 

370 PRINT "ENTER THE PARAMETERS FOR EQUATION "iJ 
$80 PRINT :FOR К-1 TO М 

590 PRINT "COEFFICIENT OF X";K:; 

400 XZ-23: INPUT XX2:ACI,K)=XX:NEXT K 

410 XZ=2:PRINT "RIGHT HAND SIDE";:INPUT XX:R(J) = 


420 GOSUB 900:NEXT J 

430 GOSUB 2000 

5ОО PRINT "THE SOLUTION IS":FRINT 

510 FOR J=1 TO N 

520 PRINT " X"sd3" = "VD 

530 NEXT J:END 

900 PRINT :FOR 1-1 TO 36:PRINT CHRS(18)3:NEXT L 
910 PRINT :PRINT :RETURN 

ZO00 IF N=1 THEN V(1)=R(1)/A(1, 12 : RETURN 

2010 FÜR К-і TO N-1 

2020 I=K+1 

2030 L-K 

2040 IF ABS(ACI,K)) 2ABS(A(L,K)) THEN L=I 

2050 IF I<N THEN I=I+1:G0TO 2040 

2060 IF L=K THEN 2100 

2070 FOR J=K TO N:@=A(K,J) :A(K,J)=A(L,d) 

ТОВО A(L,J)-Q:NEXT J 

2090 GeR(GO:R(OOSROD RO SQ 

2100 I=K+1 

2110 Q=A(I,K) /AGL,E) АІ, К) 90 

2120 FOR Ј=К+1 TO N:ACI,J)SACI,O) -QKAC(K, J) s NEXT 
J 

2150 R(ODSROD-GKR(OO : IF. І<М THEN I=I+1:GOTO 211 
o 

2140 NEXT K 
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2150 V(ODSR(OD/AXGN,ND :FOR ІзМ-1 TO 1 STEF -1 
2160 Q=O:FOR J=I+1 TO N:Q=D+ñA(I,J)£9 (J) 

2170 V(I)=(R(I)-Q)/A(I, 1): МЕХТ J:iNEXT I 

2180 RETURN 

2000 IF РЕЕК (195) < 58 THEN 2050 

3010 TRAP 3OO0:PRINT :PRINT "ЖЖ ILLEGAL ENTRY ЖЖ 
"PRINT 

Z020 IF XZ=1 THEN 300 

5050 IF XZ=2 THEN 410 

2040 IF XZ=3 THEN 390 

3050 END 


EASY CHANGES 


1. The program is currently set to allow a maximum of 20 equations. 
If you should somehow need more, and your system has the avail- 
able memory to handle it, change the value of M in line 150 to the 
maximum number of equations needed. For example, to allow up 
to 50 equations in 50 unknowns, change line 150 to read 


150 M=50 


. You may be surprised sometime to see the program terminate 
without displaying a solution. This probably means your input 
coefficients (the A array) were ill-conditioned and no solution was 
possible. This can arise from a variety of causes; e.g., if one 
equation is an exact multiple of another, or if every coefficient of 
one particular unknown is zero. If you would like the program to 
print a diagnostic message in these cases, add this line: 


2145 IF A(N,N)=0 THEN PRINT 
“ILL-CONDITIONED INPUT”:STOP 


N 


MAIN ROUTINES 


130- 220 Initializes variables, clears screen and displays 
program title. 
300- 430 Gets input from user and calculates the solution. 
500- 530 Displays the solution. 
900- 910 Subroutine to space and separate the output. 
2000-2180 Subroutine to calculate the solution; consisting of the 
following parts: 
2000 Forms solution if N —1. 
2010-2140 Gaussian elimination. 
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2030-2100 Interchanges rows to achieve pivotal condensation. 
2150-2180 Back substitution. 

3000-3050 Error trap for illegal input. 

MAIN VARIABLES 


LJ,K,L Loop indices and subscripts. 


N Number of equations (thus number of unknowns also). 

A Doubly dimensioned array of the coefficients. 

R Array of right-hand-sides. 

V Array of the solution. 

Q, XX, Work variables. 

XZ 

M Maximum allowable number of equations. 
SUGGESTED PROJECTS 

1. The program modifies the A and R arrays while computing the 


answer. This means that the original input cannot be displayed 
after it is input. Modify the program to save the information and 
enable the user to retrieve it after the solution is given. 

2. Currently, a mistake in typing input cannot be corrected once the 
RETURN key is pressed after typing a number. Modify the pro- 
gram to allow correcting previous input. 


STATS 


PURPOSE 


Ever think of yourself as a statistic? Many times we lament at how 
we have become just numbers in various computer memories, or we 
simply moan at our insurance premiums. To most people, the word 
"statistics" carries a negative connotation. To invoke statistics is al- 
most to be deceitful, or at least dehumanizing. But really, we all use 
statistical ideas regularly. When we speak of things like “she was of 
average height" or the “hottest weather in years," we are making 
observations in statistical terms. It is difficult not to encounter statis- 
tics in our lives, and this book is no exception. 

Of course, when used properly, statistics can be a powerful ana- 
lytical tool. STATS analyzes a set of numerical data that you provide. 
It will compile your list, order it sequentially, and/or determine 
several statistical parameters which describe it. 

This should prove useful in a wide variety of applications. Teach- 
ers might determine grades by analyzing a set of test scores. A 
businessman might determine marketing strategy by studying a list of 
sales to clients. Little leaguers always like to pore over the current 
batting and pitching averages. You can probably think of many other 
applications. 
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HOW TO USE IT 


Before entering the data, the program will ask whether or not you 
wish to use identifiers with the data values. These identifiers can be 
anything associated with the data: e.g., names accompanying test 
Scores, cities accompanying population values, corporations accom- 
panying sales figures, etc. Hit the Y or N key to indicate yes or no 
regarding the use of identifiers. You do not need to hit the RETURN 
key. 

Next, your data list must be entered. The program will prompt you 
for each value with a question mark. If identifiers are being used, you 
will be prompted for them before being asked for the associated data 
value. Identifiers can be any length from one to ten characters. 
Anything in excess of ten characters will be ignored. 

Two special inputs, *END and *BACK, may be used at any time 
during this data input phase. They are applicable whether or not 
identifiers are being used. To signal the end of data, input the four- 
character string, *END, in response to the (last) question mark. You 
must, of course, enter at least one data value. 

If you discover that you have made a mistake, the five-character 
string, *BACK, can be used to back up the input process. This will 
cause the program to re-prompt you for the previous entry. By suc- 
cessive uses of *BACK you can return to any previous position. 

With the input completed, the program enters a command mode. 
You have four options to continue the run: 


1) List the data in the order input 
2) List the data in ranking order 

3) Display statistical parameters 
4) End the program 


Simply input the number 1, 2, 3, or 4 to indicate your choice. If one 
of the first three is selected, the program will perform the selected 
function and return to this command mode to allow another choice. 
This will continue until you choose 4 to terminate the run. A descrip- 
tion of the various options now follows. 

Options 1 and 2 provide lists of the data. Option 1 does it in the 
original input order while option 2 sorts the data from highest value 
to lowest. In either case the identifiers, if used, will be shown along- 
side their associated values. 

The lists are started by hitting any key when told to do so. Either 
list may be temporarily halted by hitting any key while the list is 
being displayed. This allows you to leisurely view data that might 
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otherwise start scrolling off the screen. Simply hit any key to resume 
the display. This starting and stopping can be repeated as often as 
desired. When the display is completed, you must again hit a key to 
re-enter the command mode. 

Option 3 produces a statistical analysis of your data. Various 
statistical parameters are calculated and displayed. The following is 
an explanation of some that may not be familiar to you. 

Three measures of location, or central tendency, are provided. 
These are indicators of an "average" value. The mean is the sum of 
the values divided by the number of values. If the values are arranged 
in order from highest to lowest, the median is the middle value if the 
number of values is odd. If it is even, the median is the number 
halfway between the two middle values. The midrange is the number 
halfway between the largest and smallest values. 

These measures of location give information about the average 
value of the data. However, they give no idea of how the data is 
dispersed or spread out around this "average." For that we need 
“measures of dispersion" or as they are sometimes called, “measures 
of variation." The simplest of these is the range which is just the 
difference between the highest and lowest data values. Two other 
closely related measures of dispersion are given: the variance and the 
standard deviation. Тһе variance is defined as: 


N 


У Vi-M? 
ізі 


N-1 


УА- 


Неге М is the number of values, V; is the value i, and M is the mean 
value. The standard deviation is simply the square root of the vari- 
ance. We do not have space to detail a lengthy discussion of their 
theoretical use. For this refer to the bibliography. Basically, however, 
the smaller the standard deviation, the more all the data tends to be 
clustered close to the mean value. 

One word of warning — the first time option 2 or 3 is selected, the 
program must take some time to sort the data into numerical order. 
The time this requires depends upon how many items are on the list 
and how badly they are out of sequence. Average times are about 
thirty seconds for 25 items, ninety seconds for 50 items, and over six 
minutes for 100 items. The ATARI will pause while this is occurring, 
so don't think it has hung up or fallen asleep! If you have several items 
on your list, this is the perfect chance to rob your refrigerator, make a 
quick phone call, or whatever. 
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240 


SAMPLE RUN 


The program describes its wares. It asks whether or not the operator 
wishes to use identifiers with his or her input data. 


The operator wishes to use identifiers. The program explains how data is 
to be entered; it is ready to receive the operator's input. 
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The operator enters the names and scores of those who took a program- 
ming aptitude test. The actual test was given to many people, but for 
demonstration purposes, only five names are used here. The special 
string *END, is used to signal the end of the data. 


жалға 
[or 


IM RANKING ORDER 


The operator requests that the list be sorted into numerical order. The 
program waits for a key to be pressed to continue the run. 
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ODE aper рр 


The operator hits a key and is shown the data list in ranking order. The 
program waits for the pressing of a key to continue. 


ATISTICAL ANALYSIS 


IST HAS 5 VALUES 
8 NEGATIVE; 8 ZERO 


MINIMUM VALUE 
MAXIMUM VALUE 
RANGE OF VALUE 
SUM OF VALUES 


Iron dt gl 


MEAN - 34.4 
MEDIAM - 31.5 
MID-RANGE = 33.5 


STD, DEVIATION с 12.25323784 
VARIANCE = 153.175 


HIT ANY KEY TO CONTINUE 


Later in the run, the operator selects continuation option 3. This calcu- 
lates and displays the various statistical quantities. 
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PROGRAM LISTING 


10 REM STATS 
15 REM COPYRIGHT 1984 DILITHIUM PRESS 


140 DIM В%(8),Е%(8),М%(40),К%(40) 

150 B$-"XBACKkK":E$-"XEND" 

160 МХ=100 

170 DIM ЮФ (МХЖДО) , У (МХ), 2 (МХ) 

180 2 (0) =0: МФ=СНКФ (32) : МФ (40) =NS: МФ (2) = МФ 

200 GRAFHICS O:FOKE 82,2: РКІМТ СНКФ (1295) 

210 POSITION 14,2:PRINT "S Т А Т S":FRINT 

Z20 PRINT " THIS PROGRAM DOES А STATISTICAL" 
230 PRINT "ANALYSIS ОМ A LIST OF DATA VALUES." 
240 PRINT "IT CAN SORT THE LIST AND FIND SEVERAL 
250 PRINT "STATISTICAL QUANTITIES DESCRIBING" 
260 PRINT "THE DATA.":PRINT 

270 PRINT " THE DATA MAY BE ENTERED IN EITHER” 
280 PRINT "ОҒ TWO FORMS: ": PRINT 

290 PRINT " 1) AS A SIMPLE LIST OF VALUES, OR": 
PRINT 

500 PRINT " 2) WITH AN IDENTIFIER ACCOMPANYING" 
310 PRINT " EACH VALUE.":PRINT 

520 PRINT " WOULD YOU LIKE TO USE IDENTIFIERS" 
550 PRINT "WITH YOUR INPUT (Y OR N) ?"; 

S35 FOKE 764,255 

340 К=РЕЕК (764) :ІЕ R=255 THEN 340 

250 IF R-43 THEN FRINT "YES":F=1:GOTO 400 

360 IF R=35 THEN PRINT "NO":F=0:G0TO 400 

570 GOTO 340 

400 FOKE 764,259: GOSUB 2100:РКІМТ 

410 PRINT " THE DATA MUST NOW BE ENTERED." 

420 PRINT : IF F=1 THEN 460 

430 PRINT " ENTER EACH VALUE SEPARATELY IN" 
440 PRINT "RESPONSE TO THE QUESTION MARK." 

450 GOSUB 2000:G0TO 500 

460 PRINT " FOR EACH DATA ITEM, ENTER ITS" 

470 PRINT "IDENTIFIER (ABBREVIATED I.D.) AND ITS 
480 PRINT "VALUE IN RESPONSE TO THE SEPARATE” 
490 PRINT "QUESTION MARES. ":GOSUB 2000 

500 GOSUB 2100:FOKE 7644, 255: N=1 

510 IF Nii THEN N=1 

S20 PRINT :PRINT "DATA ITEM #"3N 

330 IF ЕО THEN D®((N-1) ж40+1, (N-1) Ж40%10) -М%:60 
TO 370 

$40 PRINT "I.D. "3s: INPUT R$:IF R$-E$ THEN 700 
545 IF К%-"" THEN 540 

S50 IF R$-B$ THEN N=N-1:GOTO 510 

S52 IF LEN(RS) >=10 THEN 560 

S55 RS (LEN(RS) +1, 10) =МФ (1, 1O-LEN(R®) ) 


244 Basic Programs for the Atari 


песо ОФ CCN-10)Xx4O01, (N-1) Ж40+10) =R$ CI, 10) 

570 PRINT "VALUE"::1NFUT R$:1F R$-E$ THEN 700 

S80 IF R$=B4 AND F=1 THEN 520 

$90 IF R$-EB$ THEN N-N-1:GQTO 510 

$92 TRAP 595:9У (М) «VAL (R$): БОТО 600 

$95 PRINT " ЖЖ ILLEGAL ENTRY XX":TRAP 40000:GOTO 
S70 

500 TRAP 40000 

610 IF N=MX THEN РКІМТ :FRINT " жж NO MORE DATA 

ALLOWED! X*x":NzN*1:GÜTO 700 

620 NzN*1:GOTO 510 

700 NzN-1:IF М0 THEN FRINT 

710 IF М«О THEN FRINT " жж NO DATA ENTERED -- RU 
N ABORTED жж": END 

720 GOSUE 2100 


7:0 PRINT :PRINT " -- CONTINUATION OPTIONS -- "ЕР 
RINT 

740 PRINT " 1) LIST DATA IN ORIGINAL ORDER" 
750 PRINT " 2) LIST DATA IN RANKING ORDER" 

760 PRINT " 3) DISFLAY STATISTICS" 


770 PRINT " 4) END PROGRAM" 

775 TRAF 3000 

780 PRINT :FRINT " WHAT NEXT (1, 2, 3, OR 4) "3 
:INPUT R 

790 R=INT(R):IF Rzi1 OR R24 THEN 730 

BOO IF R=4 THEN END 

B10 ON R GOSUB 1000,1200,1500 

&20 БОТО 720 

1000 GOSUB 2100:PRINT 

1010 PRINT " THE ORIGINAL DATA ORDER":PRINT 

1020 РКІМТ N;" TOTAL ENTRIES":GOSUB 2300 

1020 PRINT :PRINT "4";:PÜSITION S,PEEK(BA):PRINT 
"VALUE": 

1040 IF ҒеО THEN PRINT 

1090 IF Елші THEN POSITION 22,PEEK(BA):PRINT "I.D 

1060 FOR Jei TO N 

1070 PRINT J;:FOSITION 5, РЕЕК (84) :РКІМТ VGD1:P0 

SITION 22, PEEK (84) 

1075 PRINT D$(dJ-1) ж40+1, (]-1) KAO*10) 

1080 GÜSUE 2500 

1090 NEXT J:GOSUB 2900:RETURN 

GÜGUE 2100:PRINT 

PRINT " THE DATA IN RANKING ORDER":FRINT 

PRINT N;" TOTAL ENTRIES" 

GÜSUB 2700 

GOSUB 2300:FRINT :FRINT "#"s:POSITION 5,РЕЕ 

K (B84) PRINT "VALUE"; 

1290 IF ҒеО THEN PRINT 

1300 IF F=1 THEN POSITION 22, PEEK (84):PRINT "I.D 


15310 FOR J=1 TO М 
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1520 PRINT J;:FOSITION 5,РЕЕК(84):РБІМТ V(Z(J)); 
POSITION 22, PEEK (84) 

S PRINT D$((Z()-1)*4091,(02(0D -1) #40410) 

1330 GOSUB 2500 

1540 NEXT J:GOSUB 2900: RETURN 

1500 GOÜSUB 2100:FRINT :TRAP 40000 

1510 PRINT " STATISTICAL ANALYSIS":FRINT 
1520 PRINT " YOUR LIST HAS "М" VALUES" 

1530 NPzO: NNxNP : NZzNF': SQ=NF' : W=NF 

1540 FOR J=1 TO N:W=W-+V (J) :SüsSG*-V (J) XV (Q) 

1550 IF V(OGD bO THEN МЕ=МР+1 

1560 IF V(GDZO THEN ММеММе-1 

1570 IF V()20 THEN NZ=NZ+1 

1590 NEXT J:MzW/N:VAzO: IF №1 THEN 1610 

1600 VAs(GUU-NXMKM) / (N-1) 

1610 SDsSQR(V/A) 

1620 PRINT CHR$ (22): МР: " POSITIVE; ";NN;" NEGATI 
VE; "sNZ;" ZERÜ'":PRINT 

1630 GOSUB 2700:PRINT " MINIMUM VALUE = ";V(Z(N) 
) 

1640 PRINT " MAXIMUM VALUE = "sV(Z(1)) 

1650 PRINT " RANGE OF VALUES = "sV(Z(1))-V¢ZCN)) 
1660 PRINT " SUM OF VALUES = ":W:FRINT 

1670 PRINT " MEAN = "iM 

1680 Q=INT(N/2)+1:MD=V(Z(Q)): IF N/22INT(N/2) THE 
N 1700 

1690 Мр= (У (7 (020 +0 (2 (0-712) 72 

1700 PRINT " MEDIAN = ";MD 

1710 PRINT " MID-RANGE = ";(V(Z(1))+V(Z(N))) 72 
1715 PRINT PRINT " STD. DEVIATION = ";GD 

1720 PRINT " VARIANCE = "; VA 

1740 GÜGUE 2900: RETURN 

2000 PRINT :FRINT " IF YOU MAKE A MISTAKE, ТҮР 
E n 

Z010 PRINT B$;" TO RE-ENTER THE LAST DATUM." 
2020 PRINT PRINT " WHEN THE LIST IS COMPLETED 
. TYPE" 

ZOZO PRINT E$;" TO TERMINATE THE LIST.":RETURN 
2100 PRINT :FOR J=} ТО 38:PRINT "X"::NEXT J 

2110 PRINT :RETURN 

2300 PRINT :FRINT " WHILE THE LIST IS DISFLAYI 
NG, You" 

2310 PRINT "CAN HIT ANY KEY TO CAUSE A TEMPORARY 


2320 PRINT "HALT. THE DISPLAY WILL RESUME WHEN" 
330 PRINT "YOU HIT ANOTHER KEY." 

O FRINT :FRINT " HIT ANY KEY TO START THE DI 
PLAY." 

45 FORE 764,255 

30 IF РЕБЕ (764) =255 THEN 2350 

560 FORE 764, 255: RETURN 

2500 IF PEER (764) =255 THEN RETURN 
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2510 РОКЕ 764,255 

2520 IF PEEK(C764)z25239 THEN 2520 

ЗО FOKE 764, 255: RETURN 

2700 IF Z(0)21 THEN RETURN 

2710 FOR J=1 TO N:Z(J)zJiNEXT J:IF N=1 THEN RETU 


е. 


2720 М№ММ=№-1: РОК К=1 ТО N: FOR J=1 TO ММ: М1=2 (J) 
2730 N2-22(0J0410: IF V(N1) 292 (N2) THEN 2750 

2740 Z(J+1)=N1:2Z (J)=N2 

27580 NEXT J:NEXT K:Z(0)-1:RETURN 

2900 FRINT :FRINT " HIT ANY KEY TO CONTINUE" 
2908 PORE 764,295 

2910 IF FEEK(7584)-2255 THEN 2910 

2920 POKE 764, 255: RETURN 

2000 IF PEEK (195)<>8 THEN 2050 

3010 GOTO 775 

ЕОЗО END 


EASY CHANGES 


1. The program arrays are currently dimensioned to allow a max- 
imum of 100 data items. The total storage required for the pro- 
gram depends upon the maximum dimension parameter, MX. 
Should your application require more than 100 data values, you 
will have to increase the value of MX in line 160 accordingly. To 
accommodate up to 300 data items, make this change 


160 MX =300 


Of course, you will have to have enough RAM memory to enable 
this. 

2. Because of possible conflicts with identifiers in your list, you may 
wish to change the special strings that signal termination of data 
input and/or the backing up of data input. These are controlled by 
the variables E$ and B$, respectively. They are set in line 150. 
Each string can be up to eight characters long. If you wish to 
terminate the data with /DONE/ and to back up with /LAST/, for 
example, line 150 should be: 


150 B$=“/LAST/”:E$=*/DONE/” 


3. You may wish to see your lists sorted from smallest value to largest 
value instead of the other way around, as done now. This can be 
accomplished by changing the “greater than" sign (>) in line 2730 
to a “less than" sign (<). Thus: 


2730 N2=Z(J + 1):IF У(М1) < V(N2) THEN 2750 
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This will, however, cause a few funny things to happen to the 
statistics. The real minimum value will be displayed under the 
heading “maximum” and vice versa. Also, the range will have its 
correct magnitude but with an erroneous minus sign in front. To 
cure these afflictions, make these changes also: 


1630 GOSUB 2700:PRINT 


“MINIMUM VALUE-";V(Z(1)) 


1640 PRINT “MAXIMUM VALUE -"; V(Z(N)) 
1650 PRINT “RANGE -";V(Z(N)) - V(Z(1)) 


MAIN ROUTINES 


140— 180 
200- 370 


400- 620 
700- 710 
720- 820 


1000-1090 
1200-1340 
1500-1740 
2000-2360 
2500-2530 


2700-2750 
2900-2920 
3000-3050 


Initializes constants and dimensioning. 

Displays messages, determines if identifiers will be 
used. 

Gets data from the user. 

Checks that input contains at least one value. 
Command mode- gets users next option and does a 
GOSUB to it. 

Subroutine to list data in the original order. 

Subroutine to list data in ranking order. 

Subroutine to calculate and display statistics. 
Subroutines to display various messages. 

Subroutine to allow user to temporarily start and stop 
display listing. 

Subroutine to sort the list in ranking order. 

Subroutine to detect if user has hit a key to continue. 
Trap routine for program errors. 


MAIN VARIABLES 


MX Maximum number of data values allowed. 
D$ String array of identifiers. 

V(MX) Array ofthe data values. 

Z(MX) Array ofthe sorting order. 


N Number of data values in current application. 
F Flag on identifier usage (1 yes, 0—no). 

B$ Flag string to back up the input. 

E$ Flag string to signal end of the input. 


N$ String for a null identifier. 
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R$ User input string. 

NM N-1. 

R Continuation option. 

NP Number of positive values. 
NN Number of negative values. 
NZ Number of zero values. 

W Sum of the values. 

SQ Sum of the squares of the values. 
M Mean value. 

MD Median of the values. 

VA Variance. 

SD Standard deviation. 


J,K Loop indices. 
NI,N2 Possible data locations to interchange during sorting. 
Q Work variable. 


SUGGESTED PROJECTS 


1. The sorting algorithm used in the program is efficient only when 
the number of list items is fairly small —less than 25 or so. This is 
because it does not do checking along the way to see when the list 
becomes fully sorted. If your lists tend to be longer than 25 items, 
you might wish to use another sorting algorithm more appropriate 
for longer lists. Try researching other sorts and incorporating them 
into the program. To get you started, try these changes: 


2720 Q=0:FOR J=1 TON-1:N1=Z0) 

2730 N2=Z(J + 1):IF V(N1) > = V(N2) THEN 2750 
2745 Q=1 

2750 NEXT J:IF Q=1 THEN 2720 

2760 Z(0) - 1:RETURN 


If your lists are short, this routine will probably be a little slower 
than the current one. However, for longer lists it will save propor- 
tionately more and more time. 

2. Many other statistical parameters exist to describe this kind of 
data. Research them and add some that might be useful to you. One 
such idea is classifying the data. This consists of dividing the range 
into a number of equal classes and then counting how many values 
fall into each class. 


Section 6 


Miscellaneous Programs 


INTRODUCTION TO MISCELLANEOUS PROGRAMS 


These programs show how simple programs can do interesting 
things. All of them have a mathematical flavor. They are short and, as 
such, would be useful for study for those just learning BASIC in 
particular or programming in general. 

Monte Carlo simulation involves programming the computer to 
conduct an experiment. (It doesn't involve high-stakes gambling!) PI 
shows how this technique can be used to calculate an approximation 
to the famous mathematical constant pi. 

PYTHAG will find all right triangles with integral side lengths. A 
clever algorithm is utilized to do this. 

Have you ever looked around your classroom or club meeting and 
wondered if any two people had the same birthdate? BIRTHDAY 
will show you what the surprising odds are. 

Very high precision arithmetic can be done on the ATARI with the 
proper "know-how." POWERS will calculate the values of integers 
raised to various powers, not to the ATARTS "normal" nine-digit 
precision, but up to 250 full digits of precision. 
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BIRTHDAY 


PURPOSE 


Suppose you are in a room full of people. What is the probability 
that two or more of these people have the same birthday? How many 
people have to be in the room before the probability becomes greater 
than 50 percent? We are talking only about the month and day of 
birth, not the year. 

This is a fairly simple problem to solve, even without a computer. 
With a computer to help with the calculations, it becomes very easy. 
What makes the problem interesting is that the correct answer is 
nowhere near what most people immediately guess. Before reading 
further, what do you think? How many people have to be in a room 
before there is better than a 50-50 chance of birthday duplication? 
50? 100? 200? 


HOW TO USE IT 


When you RUN the program, it starts by displaying headings over 
two columns of numbers that will be shown. The left column is the 
number of people in the room, starting with one. The right column is 
the probability of birthday duplication. 

For one person, of course, the probability is zero, since there is no 
one else with a possible duplicate birthday. For two people, the 
probability is simply the decimal equivalent of 1/365 (note that we 
assume a 365-day year, and an equal likelihood that each person 
could have been born on any day of the year). 
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What is the probability of duplication when there are three people 
in the room? No, not just 2/365. It's actually 


1 — (364/365 times 363/365) 


This is simply one minus the probability of no duplicate birthdays. 
The probability for four people is 


1 — (364/365 times 363/365 times 362/365) 


The calculation continues like this, adding a new term for each 
additional person in the room. You will find that the result (proba- 
bility of duplication) exceeds .50 surprisingly fast. 

The program continues with the calculation until you enter “Q” to 
stop it. The program stops every 15 or 16 people and waits for you to 
press the RETURN key. This allows you to examine values before 
they scroll off the screen. 


SAMPLE RUN 


шеше 
ee Rete tar med 
Го К fcu 
кеінгі 
чал 


gu! 
213 
15 
із 
25 


bod b l Сы» 
A bh Ро b b. 
b+ ba фа ткш 


After the probability of 15 people with duplicate birthdays is shown, the 
option to quit or continue is offered. 
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PROGRAM LISTING 


10 REM BIRTHDAY 

18 REM COPYRIGHT 1984 DILITHIUM FRESS 
110 DIM X$(1):N-1:0ü-1 

120 GRAFHICS O: FORE 862,2 


130 PRINT CHR#(125) РКІМТ "NO. OF PROB. OF 2 
QF MORE" 
140 FRINT "PEOPLE WITH SAME BIRTHDAY" 


150 PRINT N,1-( 

160 Пт0Ж(565-М) /565 

170 NzN-*1:1F С(МИ16) -ІМТ (МИ16) ) ж15< 50 THEN 150 
180 PRINT :PRINT "ENTER @ ТО QUIT,":PRINT "OR PR 
ESS RETURN TO CONTINUE"; : JNFUT ХФ 

190 IF X$2>"Q" THEN 130 

200 END 


EASY CHANGES 


1. To make the program stop after a specific number of people (such 
as 50), make these changes: 


170 NZN- 1: IF N< =50 THEN 150 
175 END 


MAIN ROUTINES 


110-120  Initializes variables and clears screen. 

130-140 Displays headings. 

150-160 Calculates probability of no duplication, then displays 
probability of duplication. 

170-200 Adds a person. Determines if screen is full. Waits for key 


to be entered. 
MAIN VARIABLES 
N Number of people in the room. 
Q Probability of no duplication of birthdays. 


X$ Input string. 
SUGGESTED PROJECTS 


Modify the program to allow for leap years in the calculation, 
instead of assuming 365 days per year. 
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РІ 


PURPOSE AND DISCUSSION 


The Greek letter pi, т, represents probably the most famous con- 
stant in mathematical history. It occurs regularly in many different 
areas of mathematics. It is best known as the constant appearing in 
several geometric relationships involving the circle. The circum- 
ference of a circle of radius r is 27r, while the area enclosed by the 
circle is тт?. 

Being a transcendental number, pi cannot be expressed exactly by 
any number of decimal digits. To nine significant digits, its value is 
3.14159265. Over many centuries, man has devised many different 
methods to calculate pi. 

This program uses a valuable, modern technique known as com- 
puter simulation. The name "simulation" is rather self-explanatory; 
the computer performs an experiment for us. This is often desirable 
for many different reasons. The experiment may be cheaper, less 
dangerous, or more accurate to run on a computer. It may even be 
impossible to do in *real life." Usually, however, the reason is that the 
speed of the computer allows the simulation to be performed many 
times faster than actually conducting the real experiment. 

This program simulates the results of throwing darts at a specially 
constructed dartboard. Consider Figure 1 which shows the peculiar 
square dartboard involved. The curved arc, outlining the shaded 
area, is that of a circle with the center in the lower left hand corner. 
The sides of the square, and thus the radius of the circle, are consid- 
ered to have a length of 1. 
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e 


> 


Figure 1. The PI Dartboard 


Suppose we were able to throw darts at this square target in such a 
way that each dart had an equal chance of landing anywhere within 
the square. A certain percentage of darts would result in “hits,” i.e., 
land in the shaded area. The expected value of this percentage is 
simply the area of the shaded part divided by the area of the entire 
square. 

The area of the shaded part is one-fourth of the area that the entire 
circle would enclose if the arc were continued to completely form the 
circle. Recall that the area of a circle is mr? where г is the radius. In 
our case, r=1, and the area of the entire circle would simply be т. 
The shaded area of the dartboard is one-fourth of this entire circle 
and thus has an area of 7/4. The area of the square is s?, where s is 
the length of one side. On our dartboard, s=1, and the area of the 
whole dartboard is 1. 

Now, the expected ratio of "hits" to darts thrown can be ex- 
pressed as 


a 


-4 
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fhis _ shaded area 7/4 т 


RATIO- = = 
m #thrown entire area 1 4 


So we now have an experimental way to approximate the value of 7. 
We perform the experiment and compute the ratio of "hits" observed. 
We then multiply this number by four and we have calculated 7 
experimentally. 

But instead of actually constructing the required dartboard and 
throwing real darts, we will let the ATARI do the job. The program 
"throws" each dart by selecting a separate random number between 0 
and 1 for the X and Y coordinates of each dart. This is accomplished 
by using the built-in RND function of BASIC. A "dart" is in the 
shaded area if X? + Y?«1 for it. 

So the program grinds away, continually throwing darts and deter- 
mining the ratio of “hits.” This ratio is multiplied by four to arrive at 
an empirical approximation to 7. 


HOW TO USEIT 


The program requires only one input from you. This is the *sample 
size for printing," i.e., how many darts it should throw before print- 
ing its current results. Any value of one or higher is acceptable. 

After you input this number, the program will commence the 
simulation and display its results. A cumulative total of “hits,” darts 
thrown, and the current approximation to 7 will be displayed for each 
multiple of the sample size. 

This will continue until you press BREAK. When you are satisfied 
with the total number of darts thrown, press BREAK to terminate the 
program execution. 
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SAMPLE RUN 


DARTBOARD PI CALCULATOR 


SIZE FOR PRIMTINMüu?1508 


The operator selects 150 for the printing sample size. 


1950 darts are “thrown”. The program will continue until the BREAK 
key is pressed. 
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PROGRAM LISTING 


10 КЕМ FI 

15 КЕМ COPYRIGHT 1984 DILITHIUM FRESS 

180 T=O: TH=T 

200 TRAF 1000 

300 GOSUB 6090 

510 FRINT "SAMPLE SIZE FOR PRINTING": : INPUT NF 
20 NP=INT(NP): IF NPSL THEN 200 

330 GOSUB 600 

240 PRINT "# HITS", "# THROWN", CHRS (22) СНКФ (32) { 
CHR C32) s "PI" 

400 GOSUB 500: TH=TH+NH: T-T*NF: F-AXTH/T 

410 PRINT СНКФС52) 3 CHR C32) $ TH, CHRE C32) 3 CHRE C32) 
Т.Р 

420 GOTO 400 

500 NH-O:FOR 2-1 TO NF 

SLO X=RND C1): Y=RND C1) 

S20 IF (ХЖХ+ҮЖҮ)<1 THEN NH=NH+1 

950 NEXT J:RETURN 

600 PRINT CHRS(125):FOKE 82,2:POSITION b, FEEK (84 
) 

610 PRINT "A DARTEOARD FI CALCULATOR" 

620 PRINT :PRINT : RETURN 

1000 IF PEEK (195) =8 THEN TRAF 1000:GOTO 300 


EASY CHANGES 


1. If you want the program to always use a fixed sample size, change 
line 310 to read 


310 NP=150 


Of course, the value of 150 given here may be changed to whatever 
you wish. With this change, line 320 is not needed and may be 
deleted. 

2. If you want the program to stop by itself after a certain number of 
darts have been thrown, add the following two lines: 


315 PRINT "TOTAL # DARTS TO THROW”:INPUT 
ND 


415 IF T» -ND THEN END 


This will ask the operator how many total darts should be thrown, 
and then terminate the program when they have been thrown. 
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MAIN ROUTINES 


160-200 
300-340 
400-420 
500-530 
600-620 
1000 


Initializes. 

Gets operator input, displays column headings. 
Calculates and displays results. 

Throws NP darts and records number of “hits.” 
Clears screen and displays program title. 

Error trap for illegal inputs. 


MAIN VARIABLES 


Total darts thrown. 
Total "hits." 
Sample size for printing. 


NH Number of hits in one group of NP darts. 
P Calculated value of pi. 

X,Y Random-valued coordinates of a dart. 

1 Loop index. 

SUGGESTED PROJECTS 


1. Calculate the percentage error in the programs calculation of pi 
and display it with the other results. You will need to define a 
variable, sav PI, which is set to the value of pi. Then the percent- 
age error, PE, can be calculated as: 


РЕ = 100*ABS(P — PD/PI 


2. The accuracy of this simulation is highly dependent on the quality 
of the computer's random number generator. Try researching dif- 
ferent algorithms for pseudo random number generation. Then try 
incorporating them into the program. Change line 510 to use the 
new algorithm(s). This can actually be used as a test of the various 
random number generators. Gruenberger’s book, referenced in the 
bibliography, contains good material on various pseudo random 
number generators. 


POWERS 


PURPOSE 


By now you have probably learned that the ATARI keeps track of 
nine significant digits when dealing with numbers. For integers less 
than one billion (1,000,000,000), the ATARI can retain the precision 
value of the number. But for larger integers the ATARI only keeps 
track of the most significant (leftmost) nine digits, plus the exponent. 
This means, of course, that there is no way you can use the ATARI to 
deal with precise integers greater than one billion, right? 

Wrong. 

This program calculates either factorials or successive powers of 
an integer, and can display precise results that are up to 250 digits 
long. By using a “multiple-precision arithmetic" technique, this pro- 
gram can tell you exactly what 973 to the 47th power is, for example. 


HOW TO USE IT 


The program first asks you how many digits long you want the 
largest number to be. This can be any integer from 1 to 250. So, for 
example, if you enter 40, you will get answers up to 40 digits long. 

Next you are asked for the value of N. If you respond with a value 
of one, you are requesting to be shown all the factorials that will fit in 
the number of digits you specified. First you will get one factorial, 
then two factorial, and so on. In case you have forgotten, three 
factorial is three times two times one, or six. Four factorial is four 
times three times two times one, or twenty-four. 
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If you enter an N in the range from 2 through 100,000, you are 
requesting the successive powers of that number up to the limit of 
digits you specified. So, if you provide an N of 23, you will get 23 to 
the first power, then 23 squared, then 23 cubed, and so on. 

Finally, after it has displayed the largest number that will fit within 
the number of digits you entered, the program starts over. The larger 
the number of digits you ask for, the longer it will take the program to 
calculate each number. If you ask for zero digits, the program ends. 


SAMPLE RUN 


FERAE 


The operator wants answers up to 40 digits long in the calculations of the 
powers of 98789. The program calculates numbers up to 987898 and then 
asks for the number of digits again (in preparation for the next calcula- 
tion the operator requests). 


PROGRAM LISTING 


10 REM POWERS 

19 REM COPYRIGHT 1984 DILITHIUM FRESS 

110 DIM N$(10) 

120 GRAPHICS O:FOKE 82,2:РКІМТ CHR$(122) 

125 TRAP 1000 

150 FOSITION 9,1:FRINT "POWERS AND FACTORIALS" 
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140 PRINT :PRINT 

150 DIM N(255) 

160 FOR 2-1 TO 255:М02) =0: МЕХТ J 

170 XZ=1:PRINT "NUMBER OF DIGITS "i:INFUT M 
175 IF М=0 THEN END 

180 M=INT(M):IF М>250 OR М<1 THEN 170 

190 XZ=2:PRINT :PRINT "N ";:INFUT М 

200 N=INT(N) 

210 IF М<1 OR М>100000 THEN 190 

220 PRINT 

250 FzO:IF №1 THEN F=1:PRINT "FACTORIALS" 
240 IF F=0 THEN FRINT “POWERS OF "iN:PRINT 
250 T=10:K=1:N(0)=N 

260 FOR J=0 TO M 

270 IF NUDZT THEN 200 

2BO GQ=INTCN (CJ) ИТ) :WzN(GID) -QXT 

290 N(J)=W:N(J+1)=N(J+1)+Q 

300 NEXT J 

S10 J=M+1 

320 IF N(J)zO THEN J=J-1:GOTO 320 

S30 IF J>=M THEN 500 

$40 DzO:FRINT К,СНКФ (ZO) ; CHR$ (ZO) s CHR$ (30); 
350 Nt=STR$ (N (J) ) 

260 D=D+1:IF D52ZO THEN р=1:РКІМТ :POSITION 9,РЕЕ 
K (84) 

370 PRINT М%6;:4-02-1:ІҒ J>=0 THEN 350 

SBO0 N=N+F 

S90 KeK+i:s PRINT 

400 FOR Ј=0 TO M:N (J) =NCJ) ЖМ: NEXT J 

410 GOTO 260 

5ОО M=O: PRINT 

510 GOTO 160 

1000 IF РЕЕК(195)<>8 THEN 1050 

1010 TRAP 1000:PRINT "kk ILLEGAL ENTRY xx" 
1020 IF XZ=1 THEN 170 

1030 IF XZ=2 THEN 190 

1050 END 


EASY CHANGES 
1. To change the program so that it always uses, say, 50-digit num- 
bers, remove line 170, and insert this line: 
170 M=50 


2. To clear the screen before the output begins being displayed, 
change line 220 to say: 


220 GRAPHICS 0 
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3. If 250 digits isn't enough for you, you can go higher. For 500 
digits, make these changes: 


a. Inline 150 and 160, change the 255 to 505. 
b. Inline 180, change the 250 to 500. 


MAIN ROUTINES 


110- 
170- 


250 
260- 


310- 


330 


340- 


380- 
400- 


500- 


160 Displays title. Sets up array for calculations. 


240 Asks for number of digits and М. Checks validity of 


responses. Displays heading. 
Initializes variables for calculations. 

300 Performs "carrying" in N array so each element has a 
value no larger than nine. 

320 Scans backwards through N array for first non-zero 
element. 
Checks to see if this value would be larger than the 
number of digits requested. 

370 Displays counter and number. Goes to second line if 
necessary. 

390 Prepares to multiply by N to get next number. 


410 Multiplies each digit in N array by N. Goes back to line 


260. 
510 Prepares for next request. Goes back to 160. 


1000-1050 Error trap for illegal inputs. 


MAIN VARIABLES 


Z = z 


g o^cmam 
z 


Z x 
AN 


Array in which calculations are made. 

Number of digits of precision requested by operator. 
Starting value. If 1, factorials. If greater than 1, powers 
of N. 

Set to 0 if powers, 1 if factorials. 

Constant value of 10. 

Counter of current power or factorial. 

Subscript variable. 

Temporary variables used in reducing each integer position 
in the N array to a value from 0 to 9. 

Number of digits displayed so far on the current line (max- 
imum is 30). 

Work variable for error trap. 

String variable used to convert each digit into displayable 
format. 
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SUGGESTED PROJECTS 


1. Determine the largest N that could be used without errors entering 
into the calculation (because of intermediate results exceeding one 
billion), then modify line 210 to permit values that large to be 
entered. 

2. Create a series of subroutines that can add, subtract, multiply, 
divide, and exchange numbers in two arrays, using a technique 
like the one used here. Then you can perform high-precision 
calculations by means of a series of GOSUB statements. 
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PYTHAG 


PURPOSE 


Remember the Pythagorean Theorem? It says that the sum of the 
squares of the two legs of a right triangle is equal to the square of the 
hypotenuse. Expressed as a formula, it is a?--b?—c?. The most 
commonly remembered example of this is the 3-4-5 right triangle 
(32--42--52). Of course, there are an infinite number of other right 
triangles. 

This program displays integer values of a, b, and c that result in 
right triangles. 


HOW TO USE IT 


To use this program, all you need to do is RUN it and watch the 
"Pythagorean triplets" (sets of values for a, b, and c) come out. The 
program displays 16 sets of values on each screen, and then waits for 
you to press any key (except BREAK or E) before it continues with 
the next 16. It will go on indefinitely until you press the E key (for 
“end”. 

The left-hand column shows the count of the number of sets of 
triplets produced, and the other three columns are the values of a, b, 
and c. 

The sequence in which the triplets are produced is not too obvious, 
so we will explain how the numbers are generated. 
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It has been shown that the following technique will generate all 
primitive Pythagorean triplets. (“Primitive” means that no set is ап 
exact multiple of another.) If you have two positive integers called R 
and S such that: 


1. R is greater than S, 

2. Rand S are of opposite parity (one is odd and the other is even), 
and 

3. R and S are relatively prime (they have no common integer 
divisors except 1), 


then a, b, and c can be found as follows: 


a=R2—S2 
b=2RS 
c=R?2+S? 


The program starts with a value of two for R. It generates all 
possible S values for that R (starting at R — 1 and then decreasing) and 
then adds one to R and continues. So, the first set of triplets is created 
when R is two and S is one, the second set when R is three and S is 
two, and so on. 


SAMPLE RUN 


weet D?THAGOREAM TRIPLETS ж-е 


LOUNMT E == » c 


t 
D 
i 
i 


te дь Cù РӘ U Ср e Di ho h Со ha & 

Ji co W CO aD bt 
"JU pe UT Oo C Oi Fo фа e hoe N 1 

ОЛА e ctun N Sd e ue Td 


5 
? 
15 
3 

24 
11 
35 
15 
33 
45 
15 
33 
55 
5: 
17 


к 
4 
i 


CE TO CONTINUE, E T9 


The program generates a screen full of Pythagorean triplets, then waits 
for the operator to press a key to continue. 
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PROGRAM LISTING 


180 GzR-1 

190 A-RXR-S*S 

200 BsZXRXS 

210 C=RkKR+SkKS 

220 PRINT К,А, В,С 

230 K=K+1:D=D+1:GOTO 400 

240 8зб-2: IF St=0 THEN R=R+1:G0TO 180 

250 Sl=S:B1=R 

260 N*INT(EL/81) 

270 R1-Hi1-(S1XN) 

280 IF R1«X20 THEN B1-51:51-R1:GOTO 260 

300 IF 1221 THEN 240 

520 GOTO 190 

$50 FOKE 752,1:РКІМТ СНКФ (125) 

360 PRINT "xxxx PYTHAGOREAN TRIPLETS Жжжж" 
270 PRINT 

580 PRINT "СООМТ","--А--","--Б--","--С--" 
590 RETURN 

400 IF 04165 THEN 240 

420 PRINT : PRINT "PRESS SPACE TO CONTINUE, E TO 
END" 

425 РОКЕ 764,255 

430 XzPEEKC764):IF X#255 THEN 430 

440 IF X=42 THEN FOKE 752,0:POKE 764,2955:END 
450 GÜOGUE 350: D=O 

460 GOTO 240 


EASY CHANGES 


1. Alter the starting value of R in line 130. Instead of 2, try 50 or 
100. 

2.If you want, you can change the number of sets of triplets dis- 
played on each screen. Change the 16 in line 400 to a 10, for 
example. You probably won’t want to try a value greater than 20, 
since that would cause the column headings to roll off the screen. 

3. To make the program continue without requiring you to press a key 
for the next screen of values, insert either of these lines: 


405 GOTO 450 
or 


405 GOTO 460 
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The first will display headings for each screen. The second will 
only display the headings at the beginning of the run. 


MAIN ROUTINES 

130 Initializes variables. 

150 Displays the title and column headings. 

180 Calculates the first value of S for current R value. 


190-210 Calculates A, B, and C. 

220-230 Displays one line of values. Adds to counters. 

240 Calculates next S value. If no more, calculates next R 
value. 

250-300 Determines if R and S are relatively prime. 

350-390 Subroutine to display title and column headings. 

400-460 Checks if screen is full yet. If so, waits for key to be 


pressed. 
MAIN VARIABLES 
R,S See explanation in “How To Use It." 
K Count of total number of sets displayed. 
D Count of number of sets displayed on one screen. 


А,В,С Lengths of the three sides of the triangle. 

S1, Bl, Used in determining if R and S are relatively prime. 
ВІ, № 

X Key pressed to continue. 


SUGGESTED PROJECTS 


1. In addition to displaying K, A, B, and C on each line, display R 
and S. You will have to squeeze the columns closer together. 

2. Because this program uses integer values that get increasingly 
larger, eventually some will exceed the ATARI’ nine-digit integer 
capacity and produce incorrect results. Can you determine when 
this will be? Modify the program to stop when this occurs. 


Appendix 1 
Memory Usage 


The programs in this book were written on an ATARI 800 computer 
with 48K of RAM. They were also tested on ATARI 400, ATARI 
600XL, ATARI 800XL, and ATARI 1200XL computers. All the 
programs should run unmodified on any of these machines, except 
for some of the longer programs (WALLOONS, GROAN) which 
will not run in a standard ATARI 400 or 16K ATARI 800 due to 
memory limitations. These programs can be modified to run by 
deleting some of the features in the program. 

Atari has recently introduced several new computers, including the 
1400XL and 1450XL. These machines are purported to be software 
compatible with the earlier computers, but the programs in this book 
have not been tested on them. 

Several of the chapters in this book mention the limitations of the 
programs based on the number of “bytes free" in your system. This 
refers to the memory space available when Atari BASIC has been 
started, but no BASIC program has yet been entered. To find out how 
many bytes free your system has, enter the command PRINT FRE(0) 
after Atari BASIC is started. If this number is 10,000 or more, all the 
programs in this book will easily fit your systems available RAM. If 
this number is 4000 or more, all but the longest programs will fit. 


Appendix 2 
Microsoft BASIC for the Atari 


The programs in this book are written in standard Atari BASIC as 
available in the standard Atari BASIC CXLA002 plug-in ROM car- 
tridge (or built into the computer for the XL series) and defined in the 
Atari BASIC Reference Manual. Since this BASIC is available for all 
Atari computers there is no real need to adapt these programs to any 
other dialect of BASIC. On the other hand, there are a great many 
programs available written for the many versions of Microsoft 
BASIC, and it may be desirable to translate these programs into Atari 
BASIC. 

For those interested in experimenting, Atari Microsoft BASIC, 
ATARI P/N CX8126, is available on diskette. The two BASICSs are 
similar, and programs can be adapted from one to the other with a bit 
of effort. The principal difference between the two BASICS is their 
handling of string variables, differences in some of the graphics 
commands, and differences in file operations. Appendices F and J of 
the Atari Microsoft BASIC Instruction Manual contain a summary of 
the differences between the languages. This summary can be used to 
translate programs from one BASIC format to the other. 


USING A DISKETTE OR CASSETTE 


If you purchased this book as a sofware package you will need 
loading instructions to get the programs into your computer. The 
loading instructions are in the back of this book. Once you have 
loaded the programs you can follow the recommendations supplied 
earlier except that you have saved lots of time by not having to type in 
the programs yourself. 
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ERRATA OFFER 


All of the programs in this book have been tested carefully and are 
working correctly to the best of our knowledge. However, we take no 
responsibility for any losses which may be suffered as a result of 
errors or misuse. You must bear the responsibility of verifying each 
programs accuracy and applicability for your purposes. 

If you want to get a copy of an errata sheet that lists corrections for 
any errors or ambiguities we have found to date, send a self- 
addressed stamped envelope (SASE) to the address below. Ask for 
errata for this book (by name). 

If you think you've found an error, please let us know. If you want 
an answer, include a SASE. 

Please keep in mind that the most likely cause of a program 
working incorrectly is a typing error. Check your typing very care- 
fully before you send us an irate note about an error in one of the 
programs. Reread the *How To Use This Book" section, too. 


Software Support 

Errata — 32 Programs for the ATARI 
dilithium Press 

8285 S.W. Nimbus 

Suite 151 

Beaverton, OR 97005 


32 BASIC Programs 
for the ATARI Computer 
Loading Instructions 


Call our toll free number 800-547-1842 and ask for Software 
Support with any questions. 


What You Need To Run 
32 BASIC Programs for the ATARI Computer 
ATARI 400, 800, 600XL, 800XL, 1200XL 
16K of memory 
One disk drive 
Standard Monitor or TV with transfer switch for display 
BASIC cartridge (unless using an XL model). 
ATARI DOS 


Preliminary Steps 


Before you do anything else, make a backup copy of your 32 
BASIC PROGRAMS disk (see your user's manual for instructions on 
how to do this). There are two sides of your program disk, (side A 
and side B), each containing part of the 32 programs for the ATARI 
Computer. You may want to copy DOS on to each side of your 
backup disk. This will eliminate the need for a separate DOS disk. 

Follow these simple steps to get the 32 BASIC Programs up and 
running on your ATARI computer: 


1. With the label side up, insert your DOS diskette into drive 1, 
and close the door. 


2. Turn on the monitor or TV. 


3. Turn on the disk drive and then the computer, (the switch is 
on the right side of the computer). The following message appears: 


READY 
4. To get a list of the programs on the diskette, type 
DOS 


and press the RETURN key. Your ATARI DOS SYSTEM menu will 
appear on the screen. Select Letter A and press the RETURN key. 
Insertthe 32 Basic Programs diskette into Drive 1 with side A facing 
up, close the door, and press RETURN. A list of the programs on 
side A of the disk will appear on the screen. 


5. Choose a program from the list, for example, GROAN. To run 
this program, type B and press RETURN. (This will clear the screen 
and allow you to enter further instructions.) Type 


RUN "D1:GROAN" 


and press RETURN. Be certain to spell the name exactly as it appears 
in the directory listing. If you make a mistake, press RETURN (a 
message telling you there is an error will appear), and retype the 
instruction. 


If at any time you want to stop a program, press the break button 
(upper right corner). If you want to run another program, go back to 
Step 4. It is not necessary to get a directory each time you want to 
run a program. After the diskette is inserted and the computer is 
turned on, you can type RUN and the name of the program as 
shown above (remember to press RETURN). The directory is 
necessary only if you want to view the names of the programs. 


There is no warranty or representation by dilithium Press or the 
authors that these programs will enable the user to achieve any 
particular result. 


FD 
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Beaverton, OR 97005 
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toll free (800) 547-1842 


This book is chock full of completely-tested ready to run programs 
designed specifically for your Atari computer. It includes games, 
applications, educational programs, graphics, and mathematics. Each 
chapter fully documents a program by providing a complete source listing 
of the program, its purpose, and how to use it. Plus 
the authors tell you how to adapt 


the programs by making 
simple modifications. 


| 56084 
45078 01995 


ISBN 0-88056-084-3 
>>$19.95 


Software available in 
specially marked packages. 


Includes: 5-14” diskette containing all of the 
programs, the loading instructions and a 
warranty card with our Forever Replacement 
guarantee. This diskette runs on an ATARI 
1200, 800 or 400 computer with: 


e 16K Memory 
© 1 disk drive 
* Color Monitor or Television 


dilithium Software offers technical support 
over the telephone. With our toll-free number 
and friendly staff, we can answer all your 
questions about dilithium Software. Outside 
of Oregon dial (800) 547-1842, in Oregon 


call 646-2713. 
dp dilithium Press 
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